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FOREWORD 


Over the years, we have seen computers shrink from 
vast machines that occupied a whole suite of rooms, 
to tiny hand-held devices. Although the HX20 is not 
the smallest of these machines, it is one of the 


smallest units which is built for ease and immense 
flexibility of operation. 


In this book, Tim Hartnell shows you how to tap the 
power of your HX20. After discussing how computers 
work, he gives an overview of the fascinating 
history of computers, right up to the development of 
computers Like the one you now own. Then he Leads 
you through programming the HX20, step by step. 


You'LL be shown what to expect from commercial 
software — business and personal — and shown how to 
develop your own programs. A number of major 
programs, including MINICALC, PERSONAL FINANCE, 
REVERSI, CHECKERS and CHESS are also included in the 
book, to demonstrate how powerful is the genie you 
now have at your command. 


ALL in all, this fine book represents a resource 
which you're sure to turn to again and again in the 
coming months. With Tim Hartnell's help, you're 
ready now to make the most of your HXe20. 


Jeremy Ruston, 
Kensington, 1983 


(Mr Ruston is the creator of a major original 
structured Language — Ruston BASIC —- and author of a 
number of computer books including THE BBC MICRO 
REVEALED and PASCAL FOR HUMAN BEINGS.) 


CHAPTER ONE — WELCOME TO THE MACHINE 


The era of the personal computer has without doubt 
arrived. The HX20 can be used in an enormous number 
of ways, from games and self-instruction in program— 
ming, through to control and management of home 
finances, and for business use. The computer’ has 
come a long way since Charles Babbage's dreams for 
his ‘Analytical Engine' — as he called his first 
mechanical computer — were Lost in a maze of inter- 
locking cogs and wheels. 


The HX20 is one of the outstanding personal 
computers available today. This book aims to help 
you make the most of your HX20, whether it is the 
first computer you have ever owned, or you are 
trading up from another machine. 


If you stick to buying commercial software, or just 
key in programs from books and magazines, you'll 
miss one of the real thrills of owning a computer — 
making it bend to your will. To do this, you need a 
degree of facility in programming. This book should 
help you develop such facility, and will point you 
on the way to developing programs of your own. 


To help you think clearly about the machine you have 
in your hands, we're going to start with the basic 


question: "What is a computer?". The American 
National Standards Institute has defined a 
computer as a ‘device capable of performing 
systematic and Logic procedures, without 


intervention by a human operator during the run’. 
Wordy and convoluted as this definition may seem, it 
is actually quite accurate. 


Let's start with the first part of the definition: a 
"device capable of performing systematic sequences 
of operation upon data...'. '‘'Systematic' is the 
vital word. A computer follows instructions given to 
it by the human programmer. 


Your HX20 will not suddenly take off on paths of its 
own, making its own decisions and acting on them, 
unless you have specifically written a program which 
gives it the appearance of being able to do this. 
Babbage's close friend and public supporter, Ada, 
the Countess of Lovelace (Lord Byron's daughter) 
once pointed this out quite strongly. In her 
argument against thinking machines — which has come 
to be known as "Lady Lovelace's Objection" -— she 
said: "The Analytic Engine has no pretensions to 
originate anything. It can do whatever we know how 
to order it to perform." 


Very shortly, when we start the programming part of 
this book, you'Ll Learn about Line numbers, which 
precede each statement in a program. You'll also 
learn that, unless told to do otherwise, the 
computer will systematically perform what it is told 
to do in those lines, taking them one by one in 
numerical order. 


So, your computer is only capable of systematic 
action. This systematic action need not be just 
satisfying routine business demands Like sorting 
names and addresses, or adding up vast columns of 
numbers (although your computer will do this very 
rapidly, and accurately, for hour after tireless 
hour) but also for such tasks as playing board games 
such as Checkers and Reversi. So long as a_ task, 
such as maintaining a payroll, or playing Checkers, 


can be broken down into a series of steps which can 
be clearly delineated, a computer can be taught to 
carry out the task. 


Now playing Checkers may not seem, at first sight, 
like a task which is simply a series of operations, 
carried out systematically. When played by a human 
being, such games seem more the result of applying 
an intuitional judgement on the state of the board 
as a whole than carefully working through the series 
of steps. 


You, as a human player, do not play by Looking first 
at the top Left hand corner of the board to see if 
you can capture from there, then move to the next 
square along to see if you can capture from 
there...and so on, until you've swept the whole 
board, and then start Looking for non-capture moves 
which would threaten the other player's pieces. 
Instead, you just Look at the board, and without too 
much thought, 'know' which is the best move to make. 


But the computer cannot do this. It must have every 
task spelt out in detail, tiny step by tiny step. 
The Checkers program Later in this book,’ to allow 
you to challenge the HX20 to a game, actually does 
follow a procedure such as I've decribed. But 
because the computer works so quickly and choses 
randomly from equally good alternative moves, you 
cannot tell how methodically it is working its moves 
out. Another program in this book atllows’ the 
computer to ‘write poetry'. Although the mechanism 
of creating its verse is reduced to a few simple 
Lines of program, the HX20's output appears to be 
the work of a wilful genius. You will Learn to 
write programs Like this with the aid of this book; 


Programs which appear to move beyond the 'systematic 
sequences of operation upon data’. 


So, the first thing we can learn from the ANSA 
definition is that your HX20 works only Logically, 
and in strict accord with instructions it has been 
given by you, even if the output of the program does 
not always seem — at first sight — as if it is the 
product of a systematic, orderly process. 


The next part of the definition explains that the 
"systematic sequences of operation upon data' 
include 'numerous arithmetic and logic procedures’. 
This is really the heart of the matter. The computer 
can manipulate numbers, just as you or aé_ pocket 
calculator can (although it is probably quicker than 
the calculator, and more accurate than you). 


But as well as working with numbers, the computer 
can make decisions. As you'LL Learn a Little further 
on in this book, the computer is capable of perform- 
ing an IF...THEN evaluation. That is, it can be 
programmed to carry out the following sequence: IF 
factor A is true THEN do step B. IF it is’ raining, 
THEN gets an umbrella. IF the clock has’ stopped, 
THEN wind it up. 


This decision-making can extend to include more than 
one factor at a time (IF factor A is true AND factor 
B is also true THEN carry out action C). Going back 
to our Checkers game, we will discover the computer 


makes among other things, an evaluation of the 
following statement: 


IF the square on the board I am Looking at 

contains one of my pieces, AND the’ square 
diagonally to the right of that contains 
one of my opponent's pieces AND the’ square 
beyond that is empty THEN capture the enemy 
piece. 


A fairly long series of such decisions, made in a 
predefined order (so that, for example, capturing a 
king is considered more important than the capture 
of a non-promoted piece, or that a capture is more 
important than a simple non-capture move) allows 
your HX20 to appear as if it is thinking, and making 
human-Like decisions, and acting on them. 


Lady Lovelace, writing in 1842, was well aware of 
the decision-making power a computer could be given: 
"The engine is capable under certain circumstances 
of feeling about to discover which of two or more 
possible contingencies has occurred, and then of 
shaping its future courses accordingly." 


Now we come to the final part of the American 
National Standards Institute definition. It says 
that the systematic sequence of operations, includ- 
ing arithmetic and Logic procedures, must be carried 
out ‘without intervention by a human operator during 
the run'. This is what makes your HX20 different 
from a pocket calculator. Start your computer up, 
respond to its questions (such as 'How many hours 
did employee 3 work this week') and — without 
further aid from the human operator — the Epson 
will process the information in accord with its 


programming, and will output the results. The effect 
can appear miraculous, as a tiny piece of 
electronics processes numbers, words, positions in 
space or concepts, to arrive at accurate 
conclusions, 


When you come to write your own programs, you'll 
find you need a clearly—defined target to aim at, 
and well-reasoned path to reach that target. As_ in 
most fields of human activity, certain ways of doing 
things have been found to be better than other ways 
which achieve more or Less the same end. 


In the field of computer programming, one approach 


to programming — which makes for neat programs 
which are relatively simple to follow, and to debug 
(that is, to remove errors) — is called 'structured 


programming’. When, a Little Later in the book, we 
get around to writing a program to play Noughts and 
Crosses on the HX20, we'Ll discuss the fundamental 
ideas of structured programming. They are covered in 
more detail towards the end of the book in _ the 
chapter called IMPROVING YOUR PROGRAMMING TECHNIQUE. 


But, that comes Later. For now, we've covered a 
definition of the computer which should help you 
understand, to some extent, the paths your HxX20 
follows to carry out its tasks. In the next 
chapter, we'Ll try to answer the question "How Does 
Your HX20 Work?", 


CHAPTER TWO — HOW DOES YOUR COMPUTER WORK? 


Human beings tend work in a number system based on 
10. We have nine digits to work with (plus zero) and 
with these we can represent any number we want to. 
The position of a number indicates its value, with 
the position being made clear by the presence of 
trailing zeroes. That is, we know 90 is 10 times 
greater than 9, with the zero which follows the 9 in 
90 = making it clear which value the number 
represents. 


Computers tend to work in a number system based on 
two, the binary system. The binary system uses only 
one and zeroes, with the sequence and position of 
digits indicating their value. Here are the numbers 
one to nine in our normal numbering system (base 
ten), with their binary (base two) equivalents 
underneath: 


1 2 383 4 5 6 7 8 9 
1 $10 11 100 101 110 111 1000 1001 


As you can see, binary numbers grow long very 
quickly, and they Lack the ‘instant recognition' our 
Arabic numerals possess, Why on earth should they 
be used? Simply because your computer is, in 
essence, a vast heap of switches, and a switch — as 
you know — can have two states, and two states 
only, off and on. If we use off to represent zero 
and on to represent one, we can represent any number 
with a Long enough row of switches. 


Your computer, of course, does not require you to 
know or understand binary arithmetic. It does the 
conversions from your base system to its own, = and 


back, as needed. The vast majority of computers in 
the world use binary arithmetic. In the early days 
of programming, programmers had to work with zeroes 
and ones, which meant writing a program was an 
immensely time-consuming and frustrating task. Any 
error in running meant a vast number of ones_ and 
zeroes had to be checked. 


In those days, programmers really were a race apart. 
The intellectual strain must have been’ tremendous. 
Fortunately, the computer does most of the work for 
uS now, in changing numbers from Long strings of 
zeroes and ones into numbers we can understand. 


But this discussion, while it indicates how the 
computer manipulates numbers, does not help explain 
how a computer 'thinks'. 


Computer logic, computer decision-making power, is 
based on the discoveries of a turn of the century 
English mathematician, George Boole. His work is 
called Boolean Algebra. 


The value of Boole's discoveries Lies in the fact 
that he reduced decision-making to a mathematical 
process, a process that proved tailor-made ffor 
computer use. Your computer stores 'true' and 
'false' as numbers. 


Let me illustrate this. If you turn your computer 
on, and type in PRINT 1=1 (a true statement) 
you'LL see the computer prints up -1, showing it 
recognizes 'truth' as -1. Now enter aé_e false 
Statement, such as PRINT 3 = 4. This time your 
computer will return a zero, indicating that a false 
condition is stored as a zero. 


Try your computer with the following statements, to 
check ~~ that it works” as required in all 
circumstances: 


PRINT 180>7 
PRINT 10=17 
PRINT 18=16 
PRINT 18+5=15 


Oo Tt 
und 
rDun 


Now, as you'LL see Later on, your computer can make 
decisions which involve ‘Logical operators'. That 
is, it can see if statement A AND statement B is 
true; if statement A ORB is true; or if neither 
statements A NOR B are true. The computer can even 
handle long complex chains of logic’ such as 
determining if statement A AND statement B are true 
AND statement C OR statement D is false OR statement 
E is false. The heart of the computer's decision-— 
making power, as opposed to its ability to 
manipulate numbers, Lies in this ability to handle 
Boolean Algebra, and in its ability to translate 
these findings —- expressed mathematically — into 
an answer we can understand. 


This, of course, is not the whole picture. Let's 
look more closely at your computer. It has a means 
of accepting information from the outside world (the 
keyboard) and a means of translating that 
information into the ones and zeroes it needs. 


It has a way of storing that information until it 
needs it, of comparing new information with 
previousLly—-held information, and a way of outputting 


(via the screen, or the printer) the information it 
has developed. 


If, for example, you wanted your computer to add 
four numbers together, you might first tell it that 
the Letter A represents the number 4, that B equals 
5, C equals 9 and D equals 2. It would accept this 
information, storing it as a number of binary 
patterns. Then, you might say ADD A and B, then ADD 
C and D, and print out the results. 


There is a fixed binary pattern in the computer when 
you buy it, which tells it how to add two numbers 
when so instructed, and how to output the 
results. 


Next, you might get it to determine which of the two 
results (A plus B or C plus D) was;the Larger, and 
print out this information. The abi Lity to do this 
is also stored as a binaary pattern supplied with 
your computer when you buy it. Based on the finding 
of whether A plus B or C plus D was the Larger, the 
computer could be instructed to do something 
else...and so on. 


Read through this greatly simplified explanation 
until it begins to make some sort of sense. You 
will then be in a position to start to appreciate 
how your computer works. In fact, you don't need to 
know how the computer works in order to be able to 


use it — anymore than you have to be able to 
understand the workings of your television in order 
to watch a picture — but having an_ introduction 


to the subject will aid your appreciation of the 
electronic genie you have at your command. 
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CHAPTER THREE — YOUR COMPUTER'S FAMILY TREE 


The history of true computers is short, Less than 40 
years.. However, the history of man's attempts’ to 
ease the burden of manipulating numbers’ stretches 
back to the beginnings of civilization. 


In fact, possession of the abacus, an early counting 
frame, is taken by some historians to be evidence of 
the presence of a civilized society. In this 
chapter, we'Ll be Looking at the early history of 
computers. The Later history, spanning the Last 25 
years, is fairly well known. The earlier times are 
not as well documented so, I've decided to 
concentrate on the earlier story here. And what a 
story it is. 


In the past 40 years, many arguments for and against 
greater dependence on computers have been made. 
Despite the arguments against them, the encroach— 
ment of computers into our lives has_ continued 
steadily. And rather than fearing them, some of us 
have invited them into our homes, as your new comp-— 
uter bears witness. 


Your computer is one of the Latest developments in a 
Line of machines which men have used to expand their 
thinking abilities. From notches inaé_ stick to 
record cattle numbers, through pebbles in grooves in 
the sand, to beads on wires, man has exercised his 
ingenuity to increase his capacity to handle numbers 
and information. A product such as your computer, 
which you have bought without undue sacrifice, would 
have seemed a foolish dream to most of the men’ who 
labored to produce aids to man's thinking. 
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And there have been many such men. The history of 
computational devices goes way back into the past. 


The earliest steps on the path that stretches up to 
your computer were made by men whose names were 
never recorded. But as we get closer to our own 
era, in the Last few hundred years, specific 
inventions, discoveries and ideas stand out. These 
are the ideas which have made it possible for you to 
buy such a technological wonder as your computer. 
we'll be looking at these men -- and~ their 
inventions — in this section of the book. 


Parallels have been drawn between the Industrial 
Revolution and our own time, which may one day be 
called the era of the Computer Revolution (or the 
Information Revolution, or even the Post-Industrial 
Revolution). Within a Little over 100 years, the 
Industrial Revolution transformed the face of 
Britain — where the revolution began — and then 
the world. ALL were caught up in it, and its 
effects were so broad and far-reaching that few, if 
any, who were there at the beginning had any 
conception of how” total, irreversible and 
inescapable the changes it wrought were to be. 


So it will be with the computer. Already few 
aspects of our Lives are beyond some computer 
influence. The clothes we wear, the food we eat, the 
television we watch, the planes we fly and the cars 
we drive, even the music we Listen to, would either 
not be, or would be more complicated and expensive, 
if it were not for computers. 


The change wrought by computers to our society will 
affect nearly all of us, in most aspects of our 
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lives. The Industrial Revolution did the same. It 
became a mighty steam hammer, pummelling people's 
attitudes, needs and lifestyle in an _ unstoppable 
manner, 


The real difference between the Industrial 
Revolution and the 'Computer revolution' in which we 
are caught up, is that we have the benefit of being 
able to Look back and see what happened Last time. 
We know a Little of how forces shape societies and 
of the impact of change. Our observations of the 
Industrial Revolution spell this out very clearly. 
But though we are aware, to some extent, of what 
will happen to us as the current revolution rolls 
on, we are powerless to stop it, even it we wanted 
to do so. 


Bringing a computer into your home is embracing and 
encouraging the revolution. An insight into the men 
and their activities that brought us to this point 
may be an aid in interpreting the nature of the 
changes yet to come. And the history of computers is 
fascinating in itself, a witness to man's ingenuity. 


Man started exercising that ingenuity a long time 
ago. 


It is Likely that heaps of pebbles were used in some 
way in the earliest attempts by man to manipulate 
numbers, and record the results of those manip-— 
ulations. Early civilizations in the Asian river 
valleys, and in Egypt, certainly made use of pebbles 
in this way. The development from Loose pebbles, to 
placing them in grooves in the sand, and then in 
grooves in a wooden or stone tray, is fairly easy to 
imagine. 


13 


From here, it is not too big a step to see how it 
would have been more convenient if the pebbles could 
be fixed in some way to the frame, forming the first 
version of the device known as the abacus. This is 
a frame (generally of wood) which contains a number 
of wires along which pebbles can slide, with the 
position of the pebbles conveying numerical inform- 
ation. (The ubiquity of pebbles in the development 
of early computation devices is attested to by the 
fact that the word calculate is derived from the 
Latin calculus, a pebble.) 


It appears that the abacus was developed independ- 
ently in several parts of the world, including most 
of the areas surrounding the Mediterranean, where it 
was well-distributed thousands of years before the 
birth of Jesus. Contemporary historical records from 
the fifth century BC mention the abacus in use among 
the Egyptians and Greeks, and the Spanish conquist— 
adors found the device in use in Mexico and Peru. 
The Romans had abaci as well, as references by 
Juvenal, Cicero and Pliny bear witness. 


Even the Russians were in on the act, with an 
abacus-Like device that differed only slightly from 
the ones in use in such places as China and Western 
Europe. From China, the abacus spread into Japan in 
the fifteenth or sixteenth century. It is 
interesting to note that China and Japan were the 
two principal areas where use of the abacus survived 
well into this century. Development of the Japanese 
abacus continued up until 1930. 


It is not surprising, given the widespread nature of 


the abacus and its extreme usefulness which allowed 
it to survive for over 5,000 years, that many 
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commentators on the field have seen the abacus as 
among the most significant inventions ever developed 
by man. 


As discussed in the previous chapter, we generally 
write numbers down in the decimal system, where 
there are nine digits, plus zero. The number of 
series, and their positions in relation to the other 
digits, assign values to the digits. The decimal 
system, as we said, is easy for us to use, but most 
computers (including yours) prefer to work in a two- 
base system, in which there are only two digits, 
zero and one. Up until the eighth century, the use 
of the clumsy Roman system for representing numbers 
(with V for five, X for 100 and L for 1000, for 
example) was in very common use. But the Arabian 
system, which is more or Less the one we use today, 
was fast surplanting it, because of its greater 
elegance and simplicity. 


In the first or second century in India, the use of 
position to designate value and of zero as one of 
the fundamental digits, was developed. Although 
both devices had been used much earlier, it was the 
Hindu mathematicians who first codified the use of 
these two concepts. The Indian system spread to 
Arabia due to the vast commerce between the _ two 
countries and the Arabs continued to develop and 
extend ways of using it. 


In the ninth century, following a vist to India, a 
mathematician by the name of Alkarismi wrote his 
fundamental treatise on calculating, Al-gebr we'l 
mukabala. This book (from whose title we have 
derived the word algebra) was the main means by 
which knowledge of the Arabian/Indian system 
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gradually penetrated the West. The word algorithn, 
meaning the series of steps taken to solve a 
problem, is widely used in computer circles today. 
This word comes from algorism, a word in current in 
the West for several centures which meant 'to solve 
using the techniques of Alkarismi'. 


However, although Alkarismi's book was the _ main 
means by which the West Learned how to manipulate 
numbers in the Hindu-Arabian manner, its influence 
was not felt until around 1100 when a Christian monk 
— Adelard of Bath — spent a year in a Muslim 
university (disguised, of course) and after this 
year translated the book into Latin. 


But although the techniques of number manipulation 
were becoming more widespread, they were very far 
from universal. A population that is largely iLlit- 
erate is hardly Likely to be numerate. Even the 
(relatively) highly-educated Pepys records in his 
diary that he was obliged to engage an_ instructor 
‘of whom I intend to Learn mathematiques'. 


So the number system was waiting to be used, in a 
world where the demand for mathematical facility was 
increasing. Given the situation that most people 
had Little or no real mathematical skill, it is not 
surprising that any device which made arithmetical 
processes simpler, or more approachable, would be 
readily welcomed. 


Therefore, when John Napier, who Lived in a village 
near Edinburgh, Scotland, produced a simple mech-— 
anical aid to multiplication — know generally as 
"Napier's Bones" — it proved almost immediately 
popular. The device was a series of rods with 
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numbers on each face, which could be combined to aid 
the multipLation of Large numbers. Napier's Bones 
did not form, despite the impression created by some 
histories of computers, a calculating 'machine'. 
They were, instead, a reference tool which held, in 
a particularly convenient form, a means of working 
out complex multiplication sums. 


Even though the "Bones" were popularly accepted, 
Napier's real contribution to the history’ of 
mathematics Lay in his invention of logarithms, 
which allowed numbers to be multiplied together by 
adding their Logarithms, and similarly reduced 
division to a process of subtraction. 


It was soon realized that the product of two numbers 
could be achieved by the simple mechanical expedient 
of adding together two Lengths, where the’ Lengths 
represented the numbers' Logarithms. From this 
realization, it was a small step to the giant’ Leap 
made by English parson William Oughtred, who 
produced the first primitive slide rule around 1620. 


Pepys, still continuing his study of 'mathemat— 
iques', bought a slide rule some forty years Later, 
and found it ‘very pretty for all questions of 
arithmetic’. In fact the simplicity and elegance of 
the slide rule for multiplication and division 
ensured it a position of prime importance among 
those who needed to use mathematics, until it was 
superseded by the pocket calculator and computer, 
only a few decades ago. 


Although Napier's Bones and the slide rule could be 


described, to some extent, as mechanical devices, 
the term should perhaps be reserved for those aids 
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to calculation which used the position of particular 
points on interlocking cogs and wheels to represent 
numbers. 


Blaise Pascal (after whom the computer’ Language 
Pascal is named) is generally credited with having 
invented the mechanical calculating device. In_ the 
1640's, while Living in Paris, Pascal completed his 
first device, designed to aid his father, who was a 
tax collector. The machine, Pascal assured 
potential purchasers, would allow them to "without 
any effort perform all the operations of arith- 
metic", thus avoiding the "work which has often 
times factigued your spirit when you have worked 
with the counters or with the pen", 


Pascal blossomed early as a mathematical prodigy. At 
the age of 11, he duplicated for himself a consider— 
able portion of Euclid's work, and at 16 published a 
paper on solid geometry. 


Although he died when he was just 39, Pascal found 
time to invent — among other things -—- the 
barometer, the hydraulic press and the wheelbarrow. 


His mechanical calculator was made up of a group of 
wheels which could be set to represent a number, and 
which could be turned to indicate another number, 
arranged in such a way that the turning to the 
second number performed an arithmetical process 
between the two numbers, so that the final position 
of the wheels represented the result of the arith- 
metic performed. Although Pascal's machines added 
and subtracted, they were only able to perform 
multiplication and division by repeated addition and 
subtraction respectively. 
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Thirty years later, G. von Leibniz, who co-invented 
the calculus with Newton, built the first machine 
which was a major advance on the Pascal devices. 
Leibniz worked out away to mechanise multipli- 
cation. His method was so sound it still Lay at the 
heart of the mechanical calculators which were built 
just before the pocket calculator invaded. 


Deservedly proud of his machine, Leibniz claimed it 
would be "desirable to all those who are engaged in 
computations...the managers of financial affairs, 
the administrators of others' estates, merchants, 
surveyors, geographers, navigators, astronomers, and 
those connected with any of the crafts that use 
mathematics". He foresaw abig market for his 
device, a prophecy which did not come to pass. 


Computers, of course, appear to do more than 
manipuLate numbers. They also make decisions, and 
the first attempt to reduce Logical decision-making 
to a 'science' appears to have been made by Charles, 
the 3rd Earl of Stanhope. He first built a 
calculating device which, although it was simpler to 
operate than Pascal's, employed the same basic mech— 
anism. 


He followed this up with a gadget he called the 
‘Logic Demonstrator', in which two coloured slides, 
a grey one representing the first premise of the 
argument, and a red one representing the second 
premise — slid back and forth across each other. 
The device was intended to aid the reaching of a 
logical conclusion as a result of reading the 
sSlides' positions related to each other, and to a 
scale marked on the wooden frame which held the 
whole thing. 


19 


Although it is stretching the definition of 
"machine' to embrace the Earl's device, its invent- 
ion at least suggests that men had begun to think 
that, given time, a 'science of Logic' would be dis- 
covered and when it had been, its rules would be 
sufficiently precise to enable a machine to execute 
them. 


The inadequacy of engineering at the time had 
prevented the Leibniz machine from gaining 
commercial distribution. It was not possible in that 
age to machine metal consistently to the tolerances 
required. In the early 1800's, however, Charles 
Thomas of Colmar, Alsace, put on the market a calc— 
ulating device based closely on Leibniz's design. 
For over half a century he conducted a steady trade, 
selling a couple a month to "merchants, surveyors, 
geographers" and the rest. 


As was discussed in the opening section of this 
book, the crucial factor that divides a calculator 
from a computer is the automatic nature of its 
processing, the fact that the "systematic sequence 
of operations, including arithmetic and Logic 
procedures" are, and this is the important thing, 
carried out "without intervention by a human 
operator during the run", The devices mentioned to 
date, obviously, demand constant human intervention. 


Aware of this, and seized by the idea of producing a 
calculating device which would work independently of 
a human operator, Charles Babbage started in 1812 to 
build what he called a 'Difference Engine' which 
would, he hoped, produce more accurate’ logarithm 
tables than were currently available. 
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One of the most interesting (and in Light of its 
effects, most poignant) moments in the history of 
computers occurred as_ follows. It is Babbage 
speaking: "One evening I was sitting in the rooms of 
the Analytical Society at Cambridge...with a table 
of logarithms Lying open before me. Another member 
coming into the room, and seeing me half asleep, 
called out ‘Well, Babbage, what are you dreaming 
about?' to which I replied 'I am thinking that all 
these tables might be calculated by machinery'." 


Babbage knew that a table of values for any function 
could be deduced, to an acceptable degree of 
accuracy, by means of polynomials, where the numbers 
to be inserted in the tables were calculated by a 
series of additions. A 'Difference Engine', as 
Babbage called his’ idea, could carry out’ the 
additions needed and then print out the results. 


The idea was sound, and Babbage's first device, 
which took him the best part of a decade to build, 
was sufficiently 'inteLLigent' to produce tables for 
quadratic functions to eight decimal places. The 
Royal Society and the government were impressed and 
gave him a grant to produce a device which would 
work to twenty decimal places. It seemed that 
Babbage was really on the way. 


Sadly, the device was never completed. Babbage was 
let down by the inability of engineers of his day to 
produce parts as needed and by his own lack of 
concentrated effort. From this point on, Babbage's 
story is one of brilliant ideas wasted because they 
were not followed through to realisation. After the 
government had outLlayed the enormous (for the time) 
sum of seventeen thousand pounds, and some twenty 
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years of effort had been made by Babbage, the 
government cut the money off. Disraeli is quoted as 
saying that the only value he could see in _ the 
machine was for calculating the vast amounts of 
money which had been squadered on it. 


Babbage, however, was not disheartened. He had by 
now found a friend and confidante Ada, Countess of 
Lovelace, daughter of Lord Byron, whom we met in 
chapter one. To the end, she championed Babbage and 
his machine which she appeared to understand intuit- 
ively. Babbage himself said of the Countess that 
she seemed to understand the Engine "better than I 
do, and is far, far better at explaining it". 


As well as the Countess to take his mind off the 
fact that his government funds had been’ stopped, 
Babbage had a new idea which had formed a_ decade 
before he finally stopped working on the Difference 
Engine. He was now Looking beyond the first 'Engine' 
to a machine which had fired his imagination, a 
truly remarkable device he called the ‘'Analytical 
Engine'. His idea for this was perhaps the single 
most original and important idea in the entire 
history of computers. 


The Difference Engine, remarkable as it was in con- 
cept, was designed to carry out a single task. The 
Analytical Engine, by contrast, would be able to 
turn its hand to any task of calculation which was 
set; that is, it could be programmed. 


And Babbage's concept was so complete, his designs 
embody all the vital components of modern-day 
computers. This Engine fits well within the ANSI 
definition outlined at the start of the book. 
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Babbage's device could store numbers; contained a 
control unit to direct its multiplication of those 
numbers; allowed the operator to enter information 
and instructions; would carry out those instructions 
on the entered data without further intervention 
from the human operator; and could finally output 
the results of its work. Babbage even realised that 
his machine could be programmed with a series of 
punched cards’ similar to those he had seen in’ use 
controlling the weaving of patterned fabrics’ on 
Jacquard Looms. 


When you think about the Length of time, in _ the 
modern history of computers, for which punched cards 
('Do not spike, fold or mutilate') were used as 
programming devices -—- and are still used in some 
college time-sharing systems — it can be seen that 
Babbage's ideas were very sound, even if he was not 
able to bring them fully to fruition. 


Babbage designed his engine to work with two sets of 
cards. The first set controlled the arithmetic 
manipulation required (such as whether the machine 
was to add, or multiply, or whatever) and the second 
set contained the numbers with which the’ engine 
would do its work. 


Babbage called the first set the operation cards and 
the second set he dubbed cards of the variables. 
The word '‘'variables', as you will Learn a Little 
later, is still used today for the numbers’ (and 
nowadays for words as well) which are changed within 
a particular series of operations, although the 
operations themselves do not change. 


The Analytical Engine was a remarkable concept, as I 
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am sure you can appreciate. We, of course, have the 
benefit of hindsight, and can see it for the advance 
in human thought it represented. Few at the time 
recognized the potential intellectual power’ the 
engine represented. Lady Ada, as we've seen, was one 
of the few who saw what the device could be, and she 
wrote about it most eloquently: "The Analytical Eng- 
ine weaves algebraical patterns just as the Jacquard 
loom weaves flowers and Leaves". She was also the 
first, as we pointed out in chapter one, to discuss 
the creative power of machine intelligence: "The 
Analytical Engine has no pretensions whatever’ to 
originate anything. It can do whatever we know how 
to order it to perform. It can follow analysis; but 
it has no power of anticipating any analytical rel- 
ations or truths. Its province is to assist us in 
making available what we are already acquainted 
with." 


Despite the poetry of Ada's description, and her 
encouragement, the machine was never built. 
Babbage's plans were too ambitious. He had designed 
the Analytical Engine to work to fifty decimal 
places, a degree of accuracy which was absurdly 
beyond practical needs. The demands it placed on the 
builders of the enginer — coupled with the Lack of 
engineering precision we have mentioned before - 
practically ensured the engine wou Ld prove 
impossible to build. 


Babbage worked on it almost up to his death in 1871, 
growing more bitter as he aged. He gradually real- 
ised he was most unlikely to actually see _ the 
machine operating in his Lifetime. His workrooms 
were full of partially completed devices. Not one, 
not even the original Difference Engine, was 


24 


finished because as soon as construction was well 
underway, Babbage's mind would alight on a new 
project, and the original one would be partially or 
completely abandoned. 


However, many mathematicians and engineers studied 
the notes that he and Lady Lovelace had prepared, 
and one of them went ahead and built a Difference 
Engine that worked. Swedish engineer Georg Scheutz 
read about Babbage's machine in the Edinburgh Review 
and had one up and running by 1855. Babbage himself 
—- now aged 63 - was among those who went to see it 
in action. Although he spoke well of the project, 
it must have hurt him mightily not only to see a 
working Difference Engine in action, but to’ Learn 
that the British Government had actually bought one 
to help calculate Life expectancy tables. 


At the Centennial Exposition in Philadelphia in 
1876, an American engineer named George Barnard 
Grant had exhibited a working Difference Engine. It 
was enormous, about the size of a Volkswagon 
"Beetle', flattened out a Little, and was powered by 
electricity, but it Lay in clear Lineal descent from 
Babbage's machine. The Grant monster was too big to 
even come into consideration as a machine for office 
(or, perish the thought, home) use, but the fact 
that it worked and drew such public attention, 
convinced Grant that he almost had something. The 
size of his gargantuan monster stood in the way of 
public acceptance. So, without much further ado, 
Grant set about making smaller units. He succeeded, 
and in due course managed to sell over one’ hundred 
of a device his called his 'Rack and _ Pinion 
Calculator'. 
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Twenty years after Babbage died, Herman Hollerith, 
then working with the U.S. Bureau of the Census, 
realised that the methods of collating and 
tabulating census results by hand were so slow that 
when the 1890 census was held (American Law required 
a census’ each decade) work on the results of the 
previous census would not have been finished. 


Hollerith knew of the work of Jacquard, the 
developer of the loom which Babbage considered. 
Many of the census questions required a '‘yes' or 
'no' answer, and Hollerith realised that if a card 
was used to represent each person who completed the 
census, the position on the card could represent a 
specific question, with a hole in that position to 
mean ‘yes' and the Lack of a hole to signify 'no'. 


The proposal was accepted by the Census’ Bureau, 
after a contest with the proponent of another idea 
(of using coloured, coded cards) proved how fast the 
Hollerith system could be. The system was a roaring 
success. The census returns were converted into 
punched cards, and these were fed through a reading 
device which used electrodes dipping into a pool of 
mercury to complete connections. Each completed 
connection of a specific circuit represented a 'yes' 
answer and the results were tallied up continuously 
on Little dials. 


Forty years before this, the Babbage engines’ had 
founded on public and government ignorance and dis-— 
interest, and the Lack of engineering skills. Now, 
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with the Hollerith tabulating machine, it was shown 
that both these barriers had - to a_ significant 
entent — ceased to exist. 


Pub Lic acceptance of calculating machines was 
growing, increasing the chance of a workable device 
becoming a commercial success and thus making it 
worth a person's while to produce. Engineering 
skills, as well, were improving. The stage was set 
for mechanical calculating devices to come into 
their own. 


What really helped draw the curtain back, though, 
was the development by Spanish mathematician Roman 
Verea of a system of 'direct multiplication'. Swiss 
engineer Otto Steiger realized that Verea's system 
would be considerably simpler to mechanise than ways 
which had previously been tried, and shortly pro- 
duced a device called 'The Millionaire’. This calcu- 
Lator was first released in 1894 and retired, with 
honors, in 1935 when more than 4500 units had been 
sold. 


The Millionaire was, however, difficult to use. 
American Door E. Felt realised that systems which 
accepted the entry of numbers in a_ slow, fiddly 
manner by the turning of wheels, or via a_e slide, 
were most unlikely to set the business world on its 
ear. So Felt developed a device with a typewriter— 
Like keyboard, and at Last the calculating machine 
was really off and running. 


Felt also developed a primitive means of printing 
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the results of work done by his 'Comptometer', but 
the thunder of this was stolen by William Burroughs, 
who not only built his own calculating machine, 
complete with keyboard, but connected it to a very 
good printing device. 


Despite the fact that Burrough's machine produced 
its results in a much more convenient form than did 
those produced by Felt, the hunger of business and 
government agencies for calculating machines was so 
vast that both men became millionaires as_ they 
pushed their machines into a market which appeared 
impossible to saturate. Hand-operated Burroughs 
adding machines Lasted well into the 1970's. I 
remember using one myself — the only calculating 
device the company owned - to work out’ record 
returns in a radio station as Late as 1976. 


Back in the 1870's, the British physicist Lord 
Kelvin had designed a device to mechanically 
integrate variables in math problems, using a series 
of cogs and gears. He used it to predict British 
tides. It worked well, and save an enormous amount 
of human computation time. Many versions of the 
"Kelvin tide predictor' were developed and used 
around the world. 


In 1876, Kelvin published a paper that suggested 
that amore elaborate version of his tide machine 
should be able to cope with problems involving diff- 
erential equations. He called his theoretical device 
a ‘differential analyser' and while those who read 
his paper agreed that the idea was workable, no-one 
got around to actually building such a device for 
more than forty years. 
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It was a professor at the Massachusetts Institute of 
Technology, Vannevar Bush, who Lead the men_ who 
developed a working differential analyser. The 
device was big, clumsy and slow...but it worked. The 
Bush machine was, in Line with Kelvin's concept, 
built of interlocking gears, and Bush realised that 
all those gears meant the machine would always’ be 
very slow. So he decided to replace some of the 
gears with vacuum tubes, increasing its speed (and 
its size, for the tubes had to be well spread out to 
allow the heat they developed to escape) and its 
reliability. Bush was the first man to produce a 
partially-electronic computing device. 


Two British physicists, Douglas Hartree and his 
student Arthur Porter, visited Bush in 1933. The 
moment he saw the Bush machine, Hartree realised it 
looked just Like something built out of a big 
Meccano set. On their return to Britain, the men 
bought such a set for twenty pounds, and succeeded 
in building a differential analyser which actually 
worked. Although it was much smaller than the Bush 
machine, it produced answers within two per cent of 
those which the Bush device had produced, and _ the 
Meccano computer eventually solved several difficult 
problems. 


Hartree later built a full-size analyser at 
Manchester University. Part of this unit can be seen 
in London's Museum of Science. When I went to see 
it, I was amused to see that the Label on the 
exhibit points out that operators discovered they 
could get an insight into the problem being’ solved 
by watching the turning of the unit's’ gears. This 
nearly caused a disaster one day when an operator, 
engrossed in the turning wheels, managed to get his 
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tie caught up in the cogs. Fortunately, a colleague 
managed to disable the machine before the operator 
himself was 'differentiated'. 


Despite the fact that binary arithmetic had sparked 
a great deal of theorectical interest among mathe- 
maticians, no-one had actually followed through with 
the idea of producing a machine which would work in 
binary. No-one that is, until Konrad Zuse, an 
engineering student at the University of Berlin in 
Charlottenburg, decided that not only would he build 
a working computer, but it would be one which worked 
in binary. 


He gave up his job in 1936, much to his parents' 
horror, and told them from that now on he would be 
building a marvellous machine, right there in their 
apartment. Zuse took over a section of the dining 
room to build his first machine, and then - as_ his 
device grew in size and complexity —- gradually 
worked his way out into the room until it all but 
swallowed it up. 


Zuse's parents, much to their credit, Let him get on 
with it, and the machine (which he called Z1) was 
eventually up and running. It worked in binary, 
accepting input from the operator via aé_ keyboard, 
and put out its results in the form of Little elec— 
tric lights. 


Z1 evolved into Z2. The mechanical switches were 
replaced by telephone switching relays, and instead 
of the keyboard (which had proved too slow) inform- 
ation was fed into the computer via holes punched in 
discarded lengths of film. Zuse then became 
involved in the army, followed by a stint working 
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for an aircraft design company. He built two or 
three devices to help with the calculations involved 
in the design of new aircraft, and all the while was 
working on his computer. Eventually Z2 became Z3. 


Later, having developed a fourth machine (called, 
naturally enough, Z4) and wanting not only to save 
his machine from destruction but also to avoid 
capture by the Russians, he (and Werhner von Braun) 
trekked across Germany to temporary sanctuary in an 
Alpine village. The locals, however, thought he was 
a spy and that the curious machine he brought with 
him was one of Hitler's secret weapons. He was cap- 
tured by the Allies but after questioning was 
released. He returned to Germany, where the ideas 
embodied in Z4 became the base of an electronics 
company he founded. It was eventually bought out by 
Siemens. 


As we've seen, Vannevar Bush can get credit for 
first applying electronics to computing, and also 
for having sparked the development of computing 
devices in Britain in the twentieth century. But 
his contribution did not end there. 


Claude Shannon, one of Bush's students, added to his 
meagre income by working part-time on Bush's analy-— 
ser. One day, when discussing the problems they were 
having with relay circuits in the machine (which 
always seemed to need repairing), Bush suggested it 
might be possible to set down on paper exactly how 
the circuits worked, using symbolic Logic to do so. 
(Symbolic Logic had been developed by Alfred North 
Whitehead and Bertrand Russell, who in their 
monumental work Principia Mathematica took the work 
of George Boole — which we discussed earlier - and 
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from it constructed a solid thesis that Logic was 
bound up in, and had its genesis in, mathematics.) 
Encouraged by Bush, Shannon started to Look at’ the 
problem and eventually produced a very important 
paper: "A Symbolic Analysis of Relay and Switching 
Circuits". 


The paper clearly explained how circuits could be 
wired to carry out mathematical tasks, such as 
adding and subtracting, and demonstrated that’ the 
Same processes could be used for decision-making, 
following the thinking of symbolic Logic. Shannon 
also discussed the enormous advantage binary numbers 
had over decimal numbers when a machine was’ needed 
to work with them. After he left college, Shannon 
went to work at Bell Telephone Laboratories, and 
began developing the theoretical concepts’ which 
became the base upon which modern computers’ were 
developed. 


Also employed at Bell at the time was another mathe- 
matician, George Stibitz, who while working at home 
one day putting together circuits involving 
telephone relays, smaLl Lights and batteries, 
realised that the 'on' position of a relay could be 
used to represent the '1' in a binary number, while 
the 'off' position could be used to represent a 'O'. 
It was the work of Less than an hour to draw up, and 
construct a circuit which added two very small 
binary digits, carrying a digit where necessary into 
the next column (as you carry the tens digit into 
the next column when adding up a row of figures), 
and gave the result in terms of small _ Lights. At 
that moment, on his kitchen table, Stibitz had built 
the cornerstone of the world's first true electronic 
calculator. 
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Stibitz drew up the design of a general purpose 
calculator, which appears to be fully workable, 
although he did not get around to building it. 
Later, Stibitz gave a talk on computers at Dartmouth 
College (where, some 25 years Later, the Language 
BASIC which your computer uses, was developed) and 
in the audience was one John Mauchly. It appears 
that the lecture was one of the factors which 
spurred Mauchly to take up the path that Led him to 
eventually building the world's first proper elec— 
tronic computer. We'LL be Looking at Mauchly's 
contribution shortly. 


A young associate professor at Harvard, Howard H 
Aitken, now enters our story. Backed by the 
resources of IBM, Aiken's task was to build a com— 
puter which used magnetic relays. Aiken had come to 
the conclusion that punched card mechanical adding 
machines could be used to help produce a totally 
automatic computation machine. 


And so he built one, the Automatic Sequence 
Controlled Calculator (ASSC), which was in fact the 
world's first true computer. It had taken over a 
century for Babbage's dream of 1832 to come to Life. 


ASCC used mechanical cogs, controlled by electrical 
relays, and information was fed into the unit via 
holes punched in paper tape. Constants could be set 
via switches on the front of the machine, or via the 
paper tape. Output from ASCC came as punched cards 
or in automatic typewritten form. Although it was 
very slow, taking some ten seconds to perform a 
division, it was the world's first completed com- 
puter, and it operated for some 15 years, day and 
night, at Harvard. 
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Meanwhile, in Britain, under the spur of war, a team 
of very bright men built a number of computer—Like 
devices to help crack codes generated by the German 
Enigma Machine. It is believed that cracking the 
codes won the war for the Allies. 


The Colossus, as the final code-breaking device was 
called, used paper tape for input and could accept 
some 5000 characters a second for processing. While 
they were aware that the code-cracking needs_ had 
spurred the development of their machines, three of 
the team (Turing, Good and Mitchie) soon realised 
that what they were doing in the development of 
'inteLligent machines' had implications far grander 
than the solving of the particular problem which had 
brought them together might suggest. 


Their discussions Led eventually to a number of 
published papers, among them the one in which the 
‘Turing Criterion' was first put forward. The 
Criterion for 'machine intelLligence' was published 
by Turing in 1950. He said then that if you were 
dealing with something at the end of a wire that 
could be a machine or could be human, and you could 
not tell — from the responses coming to you over the 
wire — whether that with which you were dealing was 
human or machine, the 'thing' at the other end was, 
by definition, intelligent. 


In America, military needs also came to bear on the 
development of computing devices. At the Moore 
School of Electrical Engineering, a top secret 
project under the control of John Mauchly (who was, 
you'll recall, present at the talk given” at 
Dartmouth in 1940 by Stibitz) got under way to build 
a device which could produce the ballistic tables 
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for new weapons, a process which consumed much Labor 
and time. Urged by a young engineer, J _ Presper 
Eckert, to use tubes in the design of any machine 
they proposed, Mauchly eventually came up with a 
plan in 1942 for a device which would cost $400,000. 


A little earlier we discussed the ASCC which, 
despite its electromagnetic clutch relays, was 
basically a mechanical device. The first electronic 
computer -— the Electronic Numerical Integrator and 
Calculator (ENIAC) - was built by Mauchly and 
Eckert, and was running tests only a year after ASCC 
was completed, and was finished the following year. 
ENIAC found its first empLoyment with the military, 
working out bomb and shell trajectories. 


ENIAC used no moving parts, except for those which 
accepted information from the operator, and _ those 
which output the results of the machine's deliberat— 
jons. The electronics of the day were far from 
reliable, and the 18,000 tubes rarely performed for 
an hour without a breakdown. But even an hour's 
continuous work was worth the effort of keeping 
ENIAC going, because in that hour ENIAC could 
perform work which would take ASCC a week. 


Whereas computers today are told what to do (that 
is, programmed) via electronic impulses generated in 
most cases initially by a keyboard, ENIAC had 'hard- 
wired' programs, with the route of the wires 
representing the steps needed to solve a_ problem 
either soldered into place, or connected via a maze 
of plugs and sockets. 


In 1945, one of the ENIAC team met by chance [on a 
railway station) a Leading mathematician, John Von 
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Neumann, who had worked on the original atom bomb, 
and found his work on future atomic weapons hampered 
by delays in getting routine figure work completed. 
He joined the Moore School group in an advisory 
capacity shortly after this meeting, just as they 
were starting work on ENIAC's son and heir, EDVAC. 


Von Neumann's real contribution was to suggest that 
the computer store programs within itself. Now this 
may not seem very radical, but it marked a major 
change from the way all previous computing devices 
had worked. Before the Von Neumann idea, which was 
first applied in the US in EDVAC, programs were 
either 'hardwired' and thus were extremely difficult 
to change, or the instructions were fed in, where 
and when needed, via punched tape or cards. 


Von Neumann's idea was simple, but profound, and 
affected the evolution of all computers from that 
point. Let the program be fed in, and then stored 
by the computer in its own memory. The computer 
could, of course, store more than one program at a 
time, so it was able to call up programs from within 
other ones, or switch to the program required virt— 
ually instantaneous Ly. 


These additional abilities multiplied the potential 
speed of the computer many, many times. The comp- 
uter could now be seen Less as a dedicated slave 
working blindly on a single problem, and more as a 
servant with a host of abilities, able to turn to 
each new task with just the right intellectual 
equipment for the job. 


Despite the fact that Von Neumann is credited with 
inventing the concept of the stored program, and 
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despite the fact that it was from EDVAC that came 
the impetus to ensure all future computers would use 
the idea, two British computers — the Mark 1 at 
Manchester University and EDSAC at Cambridge 
University — were actually up and running, using a 
form of stored program access, two years’ before 
EDVAC got underway. 


It was at this point, just as 1950 dawned, when the 
computer moved from being a_ one-off, Largely 
experimental device to become a consumer product. In 
America, large firms such as Bell Telephone, Sperry-— 
Rand and (of course) IBM began work on computers 
which would be sold as products. With some of these 
firms, the computer would eventually fade away as a 
product Line. With others, such as IBM, the computer 
engulfed any other business in which the firm had 
been engaged. 


Work continued in Britain, with Cambridge and the 
National Physical Laboratory (where Turing worked) 
leading the rest of the country, and in some areas, 
the rest of the world. Lyons (of Teashop and food 
fame) even got into the act, developing its own LEO 
system which was used within the company for routine 
adminstration from 1954, 


Despite the developments made by these companies, 
the size of computers, their complexity, their un- 
reliability and their cost put them well outside the 
reach of small businesses, and the thought of people 
actually owning a computer at home was barely even 
hinted at outside the realm of science fiction. 


In fact, even as Late as 1970, the book 'Man and the 
Computer' (Charles Scribner's Sons, New York), 
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written by John Kemeny, president of Dartmouth 
College and one of the developers of BASIC, included 
the wonderful phrase: "We may assume that by 1990 
even a small business may have its own terminal". 
"Even" and "terminal". As Late as 1970 (not long ago 
in ‘history of earth' terms, but a time gulf away 
from the present in terms of the history of 
computers) one of the key people involved in making 
computer programming accessible to the public at 
large saw that one of the principle developments in 


computers would be that small businesses might —- in 
20 years - have access to computing power, via a 
terminal. 


Of course, Kemeny's prediction was made from a 
climate in which time-sharing systems (a _ remote, 
generally very big, computer servicing a_ large 
number of users, by direct Linkage over telephone 
wires to far-off keyboards) were all the rage, and 
there was no indication that the situation would 
change radically in the foreseeable future. 


However, the seeds of the revolution which has_ put 
your computer in your home had been planted much 
earlier, in 1948, when three men working at Bell 
Laboratories (John Bardeen, Houser Brattain and 
William Bradford Shockley) invented the transistor, 
and scored the Nobel Prize for Physics for this in- 
vention. Dependence on tubes, on heat removal, on 
an army of repair technicians, on massive power 
supplies and specially reinforced floors to take the 
massive weight of the computer was removed at a 
stroke. 


The concepts which Lay behind transistor operation 
were not new. Over a century’ before the 
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Bardeen/Brattain/Shockley invention, Sir Michael 
Faraday had noted that the electrical conductivity 
of some materials changed when their temperature 
varied, and in 1874, a solid state radio signal 
detector was developed by Ferdinand Braun, professor 
of physics at Marburg. (Devices such as transistors, 
which are solid matter, in contrast to tubes which 
contain ‘empty space', are called ‘solid state' 
devices.) 'Crystal set' radios were early solid 
State decices, but when the apparently much more 
flexible vacuum tube was developed in the early 
1900's, attention moved away from them and was 
concentrated on tube improvement. 


The computer field grew massively during the fifties 
and sixties. Spurred on by the space program, which 
demanded that anything carried on board a_e space 
craft be as small as possible, Americans’ worked 
steadily at compressing the size of their computers. 


When transistors were first developed, apart from 
the obvious facts that they were smaller than’ tubes 
and needed far Less power, there was no real change 
in the way electronic devices were made. Essent-— 
jially, a number of components were soldered onto a 
base, and connected by wires much as had_ tube 
devices been constructed. As solid state devices 
became more complex and each transistor took the 
place of more than one component, a trend developed 
to etch the 'wires' (as Lines of solder-Like 
conducting material) directly onto a plastic base, 
rather than handwire components onto a chassis. The 
circuits became more involved and smaller, but were 
still a farcry away from modern circuits. The 
circuit was etched from a Large diagram which was 
photographically reduced. 
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The famous 'chip' (several of which Lie within’ the 
case of your computer) was developed when it was re- 
alized that, with care, the circuit could be reduced 
a hundredfold, then over a thousandfold, using the 
base material to hold the components and their 
connections. 


A series of tiny etchings, on pieces of very pure 
silicon, are now put together ina Little stack 
which forms an entire computer circuit, complete 
with the electrical equivalents of many thousands of 
switches. Each Layer acts as an electrical micro- 
circuit, and when up to 20 or so are. stacked 
together, an entire computer is created, needing 
only input and output devices, and a power supply to 
function intelligently. 


Next time you are in London, you might Like to make 
a point of visiting the Science Museum, where part 
of Babbage's original ‘engine’ is preserved, in a 
marvellous hall full of early calculators and 
computers. 


Each time I visit that room in the museum, I _ pause 
for a moment before the Babbage cogs and wheels and 
reflect on the heartbreak they represent. None of 
Babbage's mechanical ideas are in your computer, but 
it bears witness to the soundness of the _ spec-— 
ulations of men Like Babbage and Boole. 


With what delight Babbage would seize your HXe20, 
rush with it to the rooms of the Analytical Society 
in Cambridge, and while waving it in the air, Say: 
"I. was thinking that all those Logarithm tables 
might be calculated by machinery. And I have found 
the most wonderful engine to do it...". 
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CHAPTER FOUR — FIRST STEPS IN PROGRAMMING 


The BASIC Language used by your computer is fairly 
easy to master. At the very Least, you should be 
able to program with some facility within half an 
hour from now, even if you have never programmed 
before. Mastery of programming, of course, will take 
much Longer. 


We will follow a simple routine in working through 
the commands available on your computer. Firstly, a 
word which the computer recognises will be briefly 
explained, and then it will be shown in use. Short 
programs will be introduced, combining the current 
word with earlier Learned words, so you can see how 
different words can be used to build up a_ computer 
program. From time to time, we will have much more 
major programs. Many of these major programs could, 
in fact, be entered by you right now, so that even 
if you do not fully understand how they work, you 
could still enjoy running the program. 


PROGRAM LINES 


ALL computer programs in BASIC (the ‘computer 
Language we are learning) are composed of a_ series 
of lines, each of which begins with a number. In 
general terms, the computer executes a program in 
order, starting with the lowest Line number, and 
proceeding to the highest. From time to time, 
however, the computer will redirect action within 
the program (using such commands as GOTO). This 
will become clear very shortly. 


From now on, I'LL assume that your computer is 
turned on and running, and that you're going to 
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enter each program as you come to it. You'll find 
that you gain far more from the book, and will Learn 
to program much more quickly, if you go to the trou- 
ble of entering the programs as you come to them, 
trying out the exercises described. This is a self- 
teaching text, and it requires some application from 
you if it is to do its work effectively. 


PRINT, LIST, NEW and RUN 


PRINT is one of the most often-used words in BASIC 
programming. It means more or less as you’ would 
expect. A PRINT statement tells the computer to 
PRINT something on the screen. Turn on your HXe20, 
and once the menu appears (the menu is the initial 
display you'LL get when you turn the machine on), 
touch the 2 key. The copyright notice will then 
appear, and below it you will see a symbol Like a 
'V' turned sideways. Underneath this is a_ Little 
Line. This Line is known as the cursor. If you just 
type anything into the computer, you'll see the 
cursor moves one step ahead of you. 


Press the RETURN key. The message 'SN Error' 
(syntax error) will appear, indicating that you've 
tried to get the computer to understand something it 
has not been programmed to understand. 


The word PRINT, and the other words (such as_ RUN, 
NEW and CLS) which we'LL be studying in this section 
of the book, are words the computer has_ been 
programmed to understand. Whenever you get a_ 'SN 
Error', check carefully to make sure you have spelt 
the relevant word correctly. Other things, as well 
as incorrectly spelt words, will give rise to the 
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'SN Error', but this is one of the more common 
reasons for it appearing. 


Next to show PRINT in action, type in PRINT "TEST" 
(getting the double quote marks from the 2 key, 
holding down the SHIFT key to get them). The word 
TEST should appear under your Line PRINT "TEST", and 
below the TEST you'LL see the sideways V over the 
line cursor. This indicates that the computer has 
finished the task you set for it, and is now waiting 
for further instructions. Now, enter the following, 
pressing RETURN at the end of the each Line. 


A PRIHT "AMERICA" 
2A FRIHT "THE" 
PRIHT "BEAUTIFUL" 


Once you've got it in your computer, type in_ the 
word RUN and press RETURN again. As you can see, 
the RETURN key is pressed every time you want’ the 
computer to act on what you have just entered. 


You should something Like the following on _ your 


screen: ; 
ANERICA 
THE 
BEAUTIFUL 


Now there is quite a bit we can learn from this 
short program. Firstly, as I pointed out a Little 
earlier, program Lines are numbered, and the program 
tends to run from the Lowest program Line up to the 
highest. There is no compulsion to number’ the 
program Lines in tens, starting at ten, but you'll 
find it a good habit to get into, as numbering 
programs in tens gives you room to add new lines in 
between those you have already entered. 
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The PRINT statement determines how information will 
be printed on the screen. Change the second Line of 
your program to read Like the following Line. You 
change Lines simply by typing the whole Line in 
again, with the required changes, then pressing 
RETURN, which makes the new program Line take the 
place of the old one. There is, in fact, another 
way to modify program Lines which does not demand 
you retype the whole Line, but it could be a bit 
confusing to introduce that at this stage, so we'll 
come back to it a Little Later. Anyway, type in the 
following new Line 20: 


28 PRINT » "THE" 


This time, when you RUN the program, you'Ll notice 
the program output is as follows: 
AMERICA 
THE 
BEAUTIFUL 
The comma before the quote marks in Line 20 has 
moved the PRINT position across the screen. 


You can use the comma in this way to format’ the 
print output, so — for example — you get a row of 
numbers all neatly Lined up. 


Now, get rid of that program in your computer by 
typing in the word NEW. You'll see that the cursor 
reappears almost instantly. Typing in NEW, then 
pressing the RETURN key, instantly clears the con- 
tents of the computer's memory. (Note that there is 
no way of getting these contents back after using 
NEW, so the command should be applied with care.) 


You can check that the computer is empty by entering 
the word LIST, then pressing the RETURN key. You'LL 
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see the cursor reappear. If there was a program in 
the computer, it would appear on the screen, Line by 
line. We'LL demonstrate this in a moment. 


Before we do that, however, enter and RUN the 
following program: 


1G PRINT "THIS IS" 
2@ PRINT "A TEST" 


You should get this result: 
THIS I5 
A TEST 
Now, retype Line 10 so it reads as follows: 


18 PRINT "THIS IS "3 


You'll see that there is a space between the Letter 
S and the closing quote marks, and there is a semi- 
colon (;) after the closing quotes. Now run the 
program again, and you should get this result: 


THIS I5 A TEST 


As you can see, the words all run along on the same 
Line. This is because the semicolon joins the end of 
one PRINT statement to the following one. 


TAB, and a Little more on LIST 


The TAB (for 'tabulate') command, allows for very 
precise positioning of the start of a Line of PRINT, 
and must’ be followed by a number in parantheses. 
This number dictates how many spaces across. the 
screen the PRINT statement which follows it will be 
printed. 
PRINT TAB C223 "2" 

PRIM? TAB: 
FRIHT TABS ayn 
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The ‘control variable', the number within the paran- 
theses, can be a variable, rather than a number, as 
the following program demonstrates (note that the 
term 'variable', and the use of things Like the FOR 
in Line 10, will be discussed in due course): 


i@ FOR J=1 To 12 
28 PRINT TABS IOI 
3 NEXT 


The control variable can also be an expression: 


PRIMT TABCATB 236 


Once you have this program in your _ computer, 
remember you can check it by typing in the word LIST 
and then pressing RETURN. Doing this will make the 
Listing appear on the scren. This use of LIST is OK 
is your program is only three Lines Long, but if it 
is longer, you may want to study the lines as they 
go past, and you may feel the Lines scroll past you 
too quickly to be studied carefully. 


Above the 2 and 3 keys, you can see a red key marked 
BREAK. You can use this when a Listing is scrolling 
past, or at almost any time during the execution of 
a program, to halt the computer's current action 
completely. If you do this, the message 'Break in 
30' will come up, with the number of the Line being 
executed when you pressed BREAK coming up on _ the 
screen in the place of the '30'. 


However, once you've done this, you'LL have to type 


in LIST again to get the computer to get on with the 
Listing. 
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Another way of stopping the Listing, so that you 
have time to study it properly, is to use the grey 
key marked PAUSE which is two to the left of BREAK. 
You'Ll see that when you do this, the Listing will 
stop rolling past until you press another key, or 
the space bar. 


LIST can be used to get just part of the Listing. If 
you have, for example, a program of 10 Lines, each 
numbered in tens (so the Line numbers would be 10, 
20, 30 and so on up to 100), you could get the Last 
four lines of the program to appear on the’ screen 
simply by entering: 


LIST 70 — 


This Lists all the Lines following the hyphen,’ so 
this example would get the computer to List’ Lines 
70, 80, 90 and 100. In a similar way, to get all 
the Lines up to a particular number, you use_ the 
following form: 


LIST - 40 

This will List all the Lines from the start of the 
program up to and including the one you _ have 
specified. 

If the Lines you wish to study are not at the start 
or the end of the program, you can get them up on 
the screen by entering a command in the following 
form: 


LIST 20 - 60 


This will List Lines 20, 30, 40, 50 and 60. 
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Another variation on LIST is LLIST which, instead of 
Listing the program on the screen, Lists it to the 
printer. Try it with the three-Line program which 
you still have in your computer. Make sure the 
Switch to the Left below the printer, marked 
"PRINTER OFF ON" is turned to ON, then type in 
LLIST, to get the Listing out on the printer. 


We'LL Look at LLIST again, as well as other commands 
for controlling the printer a Little Later. LLIST 
was mentioned here to complete the section on the 
use of LIST. 


VARIABLES 


Nearly all the programs you'Ll ever write or see 
written for your computer will use _ variables. 
Variables are letters, or combinations of Letters 
and numbers starting with a letter, which are given 
values during the course of a program execution and 
are, in effect, those numbers during the run of the 
program. 


To clarify that somewhat mysterious statement, Look 
at the next small program segment: 


19 A=36 

20 B=9 

38 C=A+B 

49 PRINT As"+"3Bs"="5C 


In this program, a value of 36 is assigned to the 
variable A (and acts as though it was the number 36 
right through the program), a value of 9 is assigned 
to variable B, and the total of A plus B is assigned 
to varible C, as can be seen in Line 40. Variables 
used in this way are called numeric variables. 
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Variables can change their values during the course 
of a program, as this example shows: 


18 A=INTCRND! 13#189+1 
28 B=INTCRND¢1)*12+1 
39 PRINT "A is"$A 

46 PRINT "B is"3B 

a8 FOR T=1 TO S56: HEXT 
6H PRINT 

78 GOTO 18 


Although a variable can be any Letter from A to Z, 
variable names are not restricted to single letters. 
Any combination of letters and numbers, so long as 
they start with a letter, is an acceptable variable 
name, so C2P0O, R2DEE2 and FOXHUNTER are all valid 
names. 


You'LL find that the use of explicit variable names 
can help to make programs easier to understand. For 
example, in the next program, which works out what 
percentage a small number is of a Large one,’ the 
larger number is assigned to a variable called 
BIGNUMBER, the smaller one to a variable with the 
name LITTLENUMBER and the result of the calculating 
is assigned to a variable called PERCENTAGE. (Note 
that every letter of the variable name is 
significant so GOSHOWOFF is not the same as 
GOSHOWOGF or GOSHOWOF.) Here is the program Listing: 

18 BIGNUMBER=761 

28 LITTLENUMBER=234 

28 PERCENTAGE=LITTLENUMB 


ER*1@8@“BIGNUMBER 
44 FRINT PERCENTAGE: "*." 


As you can see, it is very easy to understand what 
is happening. You are unlikely to use such_ Long 
names all the time, but there is no reason why you 
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cannot use abbreviated versions of names Like those 
used in the percentage program, which will still 
tell you, when you're Looking through the Listing, 
what the variables represent. Here, for example, is 
another version of the same program, with shorter 
variable names. Note that it is still quite clear 
what the shorter names refer to: 


18 BIGNO=761 

28 LITNO=234 

3@ PER=LITHO*14@-BIGHO 
44 PRINT FERS "%" 


The names can be further abbreviated, but still 
retain a Link with that which they represent: 


1@ BN=761 
20 LN=234 

30 PR=LN*100“BN 
40 PRINT PRs "x" 


Many computers will only accept (or take note of) 
double Letter names for variables (like GD, AS or 
TP) so if you are writing programs which you want to 
be able to run on other makes of computers, it may 
be worth getting into the habit now of using double- 
letter variable names. 


So far we have been Looking at numeric’ variables. 
There are also string variables. In computer jargon, 
a string is anything which is normally enclosed 
within quote marks in a PRINT statement. It does 
not necessarily have to be in a PRINT statement, but 
if it was, and it was a string, it would be within 
quote marks. 
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Therefore, the following are strings: 
"THE SUN IS HOT" 
"THE ANSWER TO THE PROBLEM IS" 
"HOW MANY ANGELS CAN DANCE?" 


The only difference between the variable assigned to 
a string, as opposed to that assigned to a_ number, 
is that the string variable name ends with a dollar 
sign. The following are valid string names: 


AS FACE$ D123456$ G6H4$ 


Here's a program showing string variables in use. 
Note that while the string itself must normally be 
enclosed within quote marks, the variable name does 
not have quote marks around it, even when used in a 
PRINT statement: 


18 HAME#=""EBERNEZER" 
28 VWERBS="TS" 

28 A¢="FOR THE SENATE" 
44 &f="THE CANDIDATE" 
a4 PRINT Bt 

6@ PRINT At 

78 PRINT VERBS: MAME? 


You'LlL notice that numeric variables are widely used 
within the programs in the first part of this book. 
String variables are not so common. Strings and 
string manipulation are discussed in detail a Little 
later on in this section of the book, but you know 
enough now to recognise them when you come across 
them. 
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LOAD/SAVE (and TAPCNT) 


Instead of typing in your programs each time you 
want them, you can save them on tape. To save a 
program on cassette, use the WIND command to move 
the tape to a new position. I find it best to work 
in thousands, and keep a written record of what is 
at each 1000 mark. 


Simply type in WIND 1000 or WIND 2000 or whatever, 
and when the tape stops, type in SAVE "NAME", 
replacing "NAME" with whatever you've decided to 
call your program. Then, to Load the program back 
jnto your computer, either start at the beginning of 
the tape with LOAD "NAME" or, if you know where your 
program begins, enter WIND 1000: LOAD "NAME" as a 
single command, then press RETURN. The computer will 
move to the designated part of the tape, and then it 
will Load the program. 


If you're not sure where you are on the tape, the 
command PRINT TAPCNT (standing for tape count) will 
print up the Location. Try the following, to show 
TAPCNT. Type in WIND RND(1)*100 and press RETURN. 
Once the tape has stopped, type in PRINT TAPCNT and 
press RETURN again. You should get a number between 
1 and 100. 
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CHAPTER FIVE — MORE PROGRAMMING AND THE MYSTERY OF 
LIFE 


CLS 


The next command we will look at is CLS. This stands 
for Clear the Screen, and is used when you wish to 
get rid of a program Listing when a program starts 
running, rather than just have the Listing scroll 
upwards as_ the program output begins appearing on 
the screen. 


The following program — STAR COLONY — shows CLS in 
action. (It also contains a number of other program 
words which you will probably not understand at this 
point. They will be explained as the _ book 
progresses. ) 


STAR COLONY is based on the very popular program 
LIFE, which was first developed by John Conway when 
he was attending Cambridge University in the UK. The 
program seeks to simulate the birth, growth and 
death of a colony of cells. As we are using 
asterisks to indicate cells, and as these _ Look 
vaguely Like stars, I decided to call this variation 
of the program STAR COLONY. 


Conway drew up the rules under which the stars’ in 
the colony evolve. You'll be pleasantly surprised 
to see just how effective these rules can be when 
applied, producing unexpectedly delightful designs. 


The rules, which are applied by checking the’ stars 
surrounding each position on the screen, one by one. 
As a result of these checks, decisions are made as 
to whether or not there will be a star in that 
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position the next time the colony is reprinted. If 
you imagine that a particular star is sitting on a 
chess board, somewhere near the center of the board, 
you'll see that it has eight squares surrounding 
it. If, when the contents of the eight surrounding 
squares are counted, two or three stars are’ found 
and there is a star on the square which is surr- 
ounded by the other eight, this star will survive 
until the next generation. 


If there are three stars surrounding the square 
being checked, and the central square is empty, a 
star will be 'born' in that square in the following 
generation. If there are four or more surrounding 
stars, then the central star will die before the 
next generation is printed. 


The rules are applied all over the screen at once, 
and once the full 'galaxy' has been assessed, the 
next galaxy generation is printed. 


Enter and run the following program, then return to 
the book for a discussion of it. Keep in mind that 
as well as the command CLS there are many other 
commands within the program. We'LL be Looking at 
such words as REM, GOTO and FOR/NEXT shortly, so it 
may be beneficial to try and begin to understand how 
they work in this program, so you'll be able to 
easily understand the explanations of them when they 
are presented. 


Here, then, is the program Listing for STAR COLONY: 


16 REM Star Colors 

26 CLS 

38 DEFINT A-z 

40 PRIHT"PRESS ANY KEY" 
SQ H=@ 
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6@ N=N+1: IF INKEY$=""THE 
N 68 


78 CLS 
8@ PRINT"Please stand by 


9@ RANDOMIZE N 

10@ DIM AC6, 23),B¢6,23) 
11@ FOR X=2 TO 5 

126 FOR Y=2 TO 21 

13@ IF RNDC19>.5 THEN AC 
Me Y=1 

14@ BCX. YOSACK. YS 

15@ NEXT? NEXT 


178 GOSUB 206 

186 GOSUB 318 

19@ GOTO 170 

240 CLS 

214 SOUND RND¢C1>*58; 1 
22@ FORK=2 TO 5 

230 FORY=2 TO 21 

246 ACK, YIHSBCR. YD 

256 IF AX, ¥2=1 THEN PRI 

NT " x u H 

266 IF ACK,Y2=@ THEN PRI 

NT u uu H 

276 NEXT 

286 IF 4<5 THEN PRINT 

296 NEXT 

388 RETURN 

316 REM New Galaxy 

326 FOR X=2 TO 5 

336 FOR Y=2 TO 22 

348 C= 

250 IF ACK-1:''-1)=1 THEN 
C=C+1 

268 IF ACK—-1:'3=1 THEN C 


=C+1 

278 IF ACK-1,.74+13=1 THEN 
C=C+1 

330 IF ACK, Y-1)=1 THEN C 
=C+1 


330 IF ACK» Y+19=1 THEN C 
=C+1 
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496 IF ACK+1;>Y¥-1)=1 THEN 
410 IF ACK+1;9=1 THEN C 
420 IF ACX+1,¥+1)9=1 THEN 


430 IF ACK, Y3=1 AND Cé>z2 
AND Ci>3 THEN BCx: Y>=8 

446 IF ACK, Y>=@ AND C=3 
THEN BCX, Yo=1 

45@ NEXT!NEXT 

46@ RETURN 


And here are some 'colonies' produced by it: 


PRESS ANY KEY 
Please stand by 


ae eS %* OO kK 
* FORIOIOIOK OK Kk 
4K totok * EOIOK ok 
OK OK * 4K 


x * OK IO bok 
* * * + OK 
x x ok 4K 

* OOK OK * *K KK 


* * OOOO 
OK +e OK KOK 
* x yoHOK 


4OIOK OK IK 
x * KOK 
AIK 4k * 
wok * * 

sOHOK * KK 
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FRESS ANY KEY 


Please stand by 


tok fokdototok ok tok ok 
% oo tok ok dofokok 


* * 1K x 
* WORK * 
x *K WOK Ok 

* OK 4OIOK sok 

OK ktm ok 

4K 
4K x x xO 
* x x * 
SK OK OO OK 
WOOK 
4OIOK * eK 

* x x OK KK BS 3 

OK OOK 4K 
K * 
OHO OK 

* * x OK * x 

x K AOR kofofok 

4yOIOK OK eK 
410K HK 

* #€ * x x * 

* OK x x Ok Ok 

* Ok * * x 
so eK 

+ ¥ oe ae 

* tok HO 4OOK 4K 

4ok 
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The 
printer is slightly 
so on the screen. 
to the printer: 


program used to produce 'star colonies' on 


the 
different from the version to do 
Here is the Listing to dump them 


REM Star Colony 

CLS 

DEFINT Aa-z 
LPRINT"FRESS ANY KEY" 
LPRINT 

N=6 

N=N+1:2 IF INKEY$=""THE 


78 CLS 

$8 LPRINT"Please stand b 
yy" 

$5 LPRINT 

9@ RANDOMIZE N 

196 DIM AC6; 23);,BC6, 23> 
11@ FOR K=2 TO 5 

12@ FOR Y=2 TO 21 

130 IF RNDC12>.5 THEN AC 
S>VYI=1 

140 BCX, VYI=ACX Yo 

156 NEXT: NEXT 


178 
138 
196 
288 
218 
220 
236 


GOSUB 2048 

GOSUB 316 

GOTO 178 

CLS 

SOUND RNDC1>*5@,1 
FORK=2 TO 5 

FORY=2 TO 21 

248 ACH, Y=BEX, VD 

250 IF ACKX,Y3=1 THEN LPR 
INT "S$ 

260 IF ACK, Y2=@ THEN LPR 
INT" Wes 

276 NEXT 

286 IF K<S THEN LPRINT 
290 NEXT 

388 RETURN 
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316 FEM New Galaxy 
2206 FOR 8=2 TO 5 
236 FOR Y=2 TO 22 


246 C=6 

S56 IF ACX-1-''-12=1 THEH 
C=C+1 

S66 IF ACx-1;Y2=1 THEN C 
=C+1 

2r@ IF ACK-1;''+19=1 THEN 
C=C+1 

330 IF ACK,Y-13=1 THEN C 
=C+] 

330 IF ACK, Y+13=1 THEN C 
=0+1 

466 IF ACK+1.-1.=1 THEN 
C=C+1 

416 IF ACK+1;.V2=1 THEN ¢ 

=C+1 

426 IF ACK+1,4412=1 THEN 
C=C+1 


430 IF ACK, ¥Y3=1 AND C<>2 
AND Ce>3 THEN BCX; V)=a 
446 IF ACK. ¥3=8 AND C=3 
THEN BUCK. Yo=1 

450 NEXT! HEXT 

455 LPRINT!:LPRINT!LPRINT 

468 RETURH 


As you can see, this Listing is very similar to the 
first one given. ALL you need to do is modify Lines 
30, 80, 250, 260 and 280; and add 45, 85 and 455. 


The colony size was set at four elements down and 20 
across, because of the size of the screen. There is 
no reason why, if we are using the printer or an 
external screen to accept the program output, we 
cannot use a Larger grid. One that is 20 by 20 
works very well. In fact, the result of running it 
is more effective than the four by 20 version, 
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although it takes much Longer to process each gene- 
ration. Here is the further modification of the 
program, designed to produce a 20 by 20 grid on the 
printer: 


18 REM Star Colony - 
Clarse arid version? 

28 CLS 

38 DEFINT A-2 

44 LPRINT"PRESS ANY KEY" 

45 LPRINT 

5@ H=8 

6@ W=N+1: IF [INKEY$=""THE 


78 CLS 
S@ LPRINT"Please stand b 


a5 LPRINT 
96 RANDOMIZE N 
ig DIM AC23,239,B023, 23 


4 


110 FOR K=2 TO 21 
126 FOR Waz TO 21 
130 IF RHDC1>>.5 THEN AC 
MoYo=l 
14@ BCH YOSACR. YD 
156 HEXT! NEXT 


178 GOSUB 200 
188 GOSUB 314 

198 GOTO 174 

288 CLS 

21@ SOUND RND¢1)*5@, 1 
220 FOR X=2 TO 21 

230 FOR Y=2 TO 21 

240 ACK. VISBCK: YD 

250 IF ACK:Y2=1 THEN LPR 
INT" KS 

260 IF ACX.Y2=@ THEN LPR 
INT" "3 

27@ NEXT 

280 IF X<21 THEN LPRINT 
238 NEXT 

388 RETURN 
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3168 REM New Galax 
326 FOR #=2 TO 21 
336 FOR Y=2 TO 22 


246 C=8 

358 IF ACK-1.:4'-1.=1 THEH 
C=C+1 

360 IF ACK-1.‘'2=1 THEN C 
=C+1 

276 IF ACK-1:'%+12=1 THEN 
C=C+1 

386 IF AcK,Y-1)=1 THEN C 
=C+1 

S336 IF ACK, Y+13=1 THEN C 
=C+1 

466 IF Atk+1.'-15=1 THEN 
C=C+1 

41@ IF ACK+1:'2=1 THEN C 

=C+1 

426 IF ACK+1.%+19=1 THEN 
C=C+1 


$36 IF ACK, Ys=1 AND Ci>2 
AND C2>3 THEN BCX. Yo=8 

446 IF ACK.» Yo=@ AND C=3 
THEN Bow, Vaal 

458 HEAT? NEXT 

4355 LPRINT:LFRINT: LPRINT 

468 RETURN 


Because a much Larger grid must be checked, this 
version of the program is very much slower than’ the 
two earlier versions, but the greatly improved 
results make the wait well worth while. To show 
this, here are some colonies in evolution, on the 20 
by 20 galaxy: 
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x 
xk x kK 
x eK Ox 
* * 
x * 
x x x eK 
4K 
so 
x 
tok 
1m FIO 
4k x kK 
x OK Ok 
x KOK 
40K 
4K * 
40k x x 
OK x 
eK x 
x x 
x Ox 
40k Ok 
woh 
x * 
x * 
x 4K 
eK * x 
xk Ok 
x kx 
4K 
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Although it may be of Limited interest and use at 
this point, I'LL now go through the very first 
version of the program, more or Less Line by Line, 
to outline what each Line does. 


I suggest you may wish to completely skip the expla— 
nation at this time, and return to it Later on in 
your reading, after you've worked through some of 
the following section on programming. You'LL find it 
will then make much more sense to you, and thus will 
be more valuable than it may be if you try to wade 
through it now, right at the beginning of your 
learning about computer programming. 


We start with Line 20, which clears the screen, 
removing whatever is Left of the Listing, and the 
word RUN from the screen. Line 30 ensures that all 
variables used, from A to Z, will be integer 
variables which ensures the programs runs’ more 
quckly than would be the case if the variables were 
floating point ones. 


The routine from Lines 40 to 60 sets up a Loop which 
is only terminated when a key is pressed in response 
to the instruction "PRESS ANY KEY". Line 50 sets 
the variable N to zero, and Line 60 increments this 
by one over and over again until the computer 
senses, through INKEY$, that a key has been pressed. 
The value of N obtained is used to seed the’ random 
number generator in Line 90, thus ensuring that you 
get different colonies each time you run the 
program. Once you've pressed a key, Line 70 clears 
the screen of the "PRESS ANY KEY" message, and 
replaces it with the words "Please stand by" while 
it creates the initial colony. 
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Line 100 dimensions two arrays, one to hold the 
colony which is currently displayed on the screen, 
and the other to hold the changes that are to be 
made to this colony for the following generation. 


The routine from lines 110 to 150 sets up the 
starting colony. If the value of a particular 
element of the A array is zero, a blank (that is, 
no cell) will be printed. A value of one will cause 
a star-cell to be printed. Line 130 allots the 1's 
at random throughout the array, and the following 
Line copies the contents of the A array, element by 
element into the B array. Note that the 'outside' 
elements of the array are not assigned, so the frame 
of the colony will always be blank. The elements in 
the frame are never checked, as the computer knows 
these are blank, and Likewise are never printed. 


Once the initial star colony has been generated, 
action goes to the subroutine starting at Line 200. 
Another clear screen command is found here, this one 
for when the Lines from 170 to 190 are traversed 
over and over again in an infinite loop. A beep is 
sounded by Line 210 to alert you to the fact that a 
new colony is about to be printed, and the loop from 
220 to 290 prints out the colony. 


After a return to the '170 to 190' Loop, action goes 
to the routine starting at Line 310, where the stars 
surrounding each star on the grid are checked one 
by one, and the results of such checks stored in 
array B. You'll see that Line 240, which is within 
the printout subroutine, ensures array B is_ copied 
into array A for the actual printout. Note that the 
number of neighbours for any cell is held in 
variable C. 
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Line 430 says, in effect: "If the square whose surr- 
oundings have been checked contains a star, and 
there are not either two or three stars in_ the 
surrounding eight squares, then that star should die 
for the next generation, its element within’ the 
array being set equal to zero". 


In a similar way, Line 440 says: "If there is no 
star in the sqaure whose surroundings are being 
checked, and the square has three neighbours, then a 
star should be born in that cell in the next genera-— 
tion. That is, its element within the array should 
be set equal to one". 


After the return from that subroutine, the computer 
hits the GOTO message (Line 190) which sends to back 
to Line 170 to cover the two subroutines again. The 
process will continue until the BREAK key is 
pressed. 


REM 


The word REM stands for remark. This is a word or 
phrase which is used within a program simply to tell 
human beings Looking at the program what the follow— 
ing section of the program is meant to be doing. REM 
Statements are ignored by the computer, so you can 
use them to store any information which you feel 
could help you interpret what sections of the 
program are doing. 


You'LL find that REM statements are particularly 
useful when you return to a program after a_ long 
break. You may feel you will never forget what part— 
icular sections of a program do, and this belief 
will persist until you first try to fathom out’ the 
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workings of a program which you have not looked at 
for several days. 


Here are two REM statements from the Last version we 
C : ; 

SON eae) eon 18 REM Star Colony - 
Clarae arid version? 

28 CLS 

300 RETURN 

31@ REN New Galaxy 

B20 FOR ¥=2 TO 21 


In these printouts, the REM statements are, of 
course, Lines 10 and 310. Line 10 tells you what the 
program is, a fact which may not be immediately evi- 
dent when you pick up one Listing from a collection 
of ten or more of them. The second REM statement, 
Line 310, explains that the following section of the 
program works out the status of the new colony. 


Although you may feel REM statements are a bit of a 
waste of time with short programs, you'Ll find they 
come into their own with Long programs. Certainly it 
is worth getting into the habit of using REM state- 
ments. 


We'LL now be looking at a number of commands, using 
the same program to show them in action. The program 
is 'Number Race', a title which will make sense once 
you've run the program. When you do, you'Ll see the 
numbrs 1 to 4 race each other across the _ screen, 
Like four tiny horses. 


At the beginning of the program, which is intended 
for two human beings (although a version in which 
you play against the computer can easily’ be 
created), each player has $100. The two players each 
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bet $5 on their choice of a horse to win the race, 
selecting one of the numbers 1 to 4 for a win. If 
the selected horse does win, $10 is paid. 


The game continues, with race after race, until one 
of the players is broke. At this point, the solvent 
player is declared the winner. 


CONT, GOTO 


I suggest you enter the following program now, run 
it afew times, and then return to this text where 
the programming words CONT and GOTO are described. 


10 REM Number race 

20 DIM AC4),2¢29,KE2) 

S@ N=1!KC19=106: K(29=188 

48 CLS 

5@ FOR T=1 TO 2 

6B KCTI=HEXCTI-“S2IF XCTO<1 
THEN 426 

78 PRIHT?PRIWT 

88 PRINT "Playver"3T3":" 
96 PRINT "you've got #"3 
MeTD 

198 PRINT TABC2)>3 "Which 

number " 

11@ PRINT "will win ¢1 t 

ao 4)?"3 

12@ LET A=VALCINKEYS$) 
e H=H+1: SOUND N MOD 56 


140 IF A¢1 OF A>4 THEN 1 
20 

15@ 2¢T>=A 

166 IF T=2 AND Z¢12=2¢2) 
THEH SOUND 1,1:PRINT:PR 
IHT “Number 1 has"s 2013: 

FOR D=1 TO 186@:NEXT: GOT 

o7@ 

178 NEXT 
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13@ RANDOMIZE N 

196 CLS 

200 FOR T=1 TO 4:ACTD=Tv 

16: NEXT 

219 FOR B=1 TO 4 

226 LET ACB)=ACB>+RNDC1) 

236 PRINT TABCACB) 23B3 

246 IF Bé4 THEN PRINT 

250 IF ACB)>1? THEN 3aa 

260 SOUND ACB).8.5 

278 NEXT 

236 CLS 

298 GOTO 2106 

340 PRINTSPRINT"The winn 

er is"sB 

310 IF 2¢19=B THEN PRINT 
"And Player 1 sot it ri 

ght" i XC 19=KC194+18 

320 IF 2¢2)=B THEN PRINT 
"Snd Player 2 aot it ri 

ght"? KC 2 =AC294+18 

33@ FOR T=1 TO 5 STEP RN 

C¢1>:SOQUND T;. 5!NEXT 

346 PRINT: PRINT 

356 PRINT "Stand bs" 

368 FOR T=1 TO 5 STEP RN 

O¢1>=SOUND T;. S:NEXT 

376 PRINT "for 3 new" 

38@ FOR T=5 TO 1 STEP —-R 

ND¢12:SOUND T;.52NEXT 

790 PRINT ".......RACE!! 

498 FOR T=5@ TO 45 STEP 

- RHOC1L9: SOUND T,. SIHEX 

T 

41@ GOTO 46 

426 PRINT: PRIHT "Well, pP 
layer "S$ 

430 PRINT "is broke, so 

the" 

446 PRINT "winner is"s 

450 IF T=1 THEN PRINT 2 

ELSE PRINT 1 


We'LL look at the word CONT first of all. CONT 
stands for continue, and is used when - for’ some 
reason -— you stop the program, and then wish to 
continue execution. As you have seen from running 
"Number Race', after the two players have selected 
their. 'horses', the four numbers run across’ the 
screen, emitting Little beeps as they do so. 


Run the program again, and once the race part of the 
program is underway, press the BREAK key. A message 
like ‘Break in 230' will appear. Now type in CONT 
and press RETURN and you'LL find the race picks up 
from the point where you stopped it. So CONT is very 
easy to understand. It stands for continue and is 
used whenever you wish to start execution again 
after BREAKing for some reason. 


Note that you cannot use CONT if you change the 
program in any way before attempting to continue 
program execution. 


GOTO 


It is pretty obvious what GOTO means and does. 
You'll recall that I said earlier that programs in 
BASIC tend to be executed from the smallest’ Line 
number to the highest. GOTO is one of the commands 
which allow you to break this orderly execution 
sequence from Lowest to highest. When the computer 
comes across’ the word GOTO, it goes to the Line 
number indicated. 


You've probably realised that, while the race is 
being run, a small part of the program is repeated 
over and over again, much as there were parts of the 
STAR COLONY program which were repeated. If you 
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Look at the sequence from Lines 210 to 290, you'll 
see that these are the parts of the program which 
are executed time and time again while the race is 
underway. Line 290 (GOTO 210) is the one which sends 
action back to the beginning of the race Loop. Line 
410 (GOTO 40) sends action back to Line 40 after one 
race has been won to collect the bets for the next 
race. Lines 290 and 410 are known as ‘unconditional 
GOTO statements' because they always redirect action 
within a program. 


We'LL be looking in detail at the pair of words 
IF/THEN a Little Later in the book. For now, all you 
need to know is that these words impose conditions 
on the execution of the statement which follows 
them. 


It is not necessary to include the word GOTO after a 
condition, as the computer will understand that it 
should be there. 


That is, if the Line means... 
IF X = 3 THEN GOTO 50 
-..-you can simply write... 
IF X = 3 THEN 50 


implied. Look at Line 250. This checks the value of 
a variable called A(B) and if it finds it is more 
than 17, then tells the computer to GOTO Line 300. 
As you can see, the word GOTO is not there after the 
THEN. The computer, however, understands’ the 
instruction which is intended, from the context in 
which it appears. You can see that the computer 
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does understand this from the action it takes when 
it finds A(B) is greater than 17. (You could also 
check it, I guess, by inserting the word GOTO in 
Line 250 so that it comes between the 17 and _ the 
THEN. You'd see then it had no effect on the way 
the Line operated.) 


We'LL be returning to the 'Number Race' program 
shortly, so save it on tape now so you'll be able to 
reload it Later when it is needed. 


ON...GOTO 


This is a variation on the GOTO statement, which is 
used when you want to GOTO a series of destinations, 
depending upon the value held by a particular 
variable. 


Here is a Simple program, which shows ON...GOTO in 
action: 


REM OH... GOTO DEMO 
A=THTCRHDS Loe4o4+1 

FOR B=1 TO 288: HEST 
OH A GOTO Sa, 7a, 94,11 


Wr Er 


PRINT "ONE" 

GOTO 26 

PRINT "TWO" 

GOTO 28 

PRINT "THREE" 
GOTO 28 

116 PRINT "FOUR" 


124 GOTO 26 


Rea po Om fe od pho 


Tos Te a 


= 
a 
a 
a 
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Line 20 generates the numbers 1, 2, 3 or 4 at 
random, assigning them to the variable A. Line 40, 
the important one for this discussion, sends action 
to 50 if A equals one (50 is the first number after 
GOTO), to 70 is A equals two (70 is the second des- 
tination), to 90 if A equals three and to 110 if A 
equals four. Line numbers 50, 70, 90 and 110 spell 
out the 


number in full, effectively changing a 
randomly-generated digit into a word. 
ON...GOTO can also be very effective for ‘'writing' 


poetry as the next program shows. 


14 REM ON.. GOTO POETRY 


28 CLS 


3@ A=IHTCRND# 12*133+1 


49 FOR B= 


1 TO 206: NEXT 


58 ON A GOTO 54,78: 38, 90 


: 108,118; 
: 166,178; 
68 PRINT 
38 

78 PRINT 
Vs] 

84 PRINT 
38 

98 PRINT 

a 

198 PRINT 


126, 136.146, 156 
138 
“LINGER "3:GOTO 


ywouss 


“ONL GOTO 3 
"HEART "3 = GOTO 
"LOVERS": GOTO 3 


"WANDERING": GO 


TO 34 

118 PRINT "PEACEFUL": GOT 
O 36 

12@ PRINT "REACH OUT": GO 
TO 36 


136 PRINT 


uW 


"SAD "3:G0TO 3 


14@ PRINT "EVES":GOTO 34 
38 PRINT "LIMPID "3:GOT 
Oo 3a 
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166 PRINT "WAITING": GOTO 
36 


170 PRINT:PRINT:GOTO 3a 
180 PRINT "..."3:GOTO 30 


As you can see, the random number generated in Line 
30 directs the computer to various Lines between 60 
and 180, using ON...GOTO. The end of each print 
Line contains a GOTO 30 which sends action back to 
get a new random number. Line 40 uses a dummy Loop 
to slow things down enough to allow you to read the 
"poems'. By changing all the words PRINT into 
LPRINT, you can get the computer to dump the result 
of its creative genius directly onto the printer, to 
create results Like these: 


SAD HEART SAD EVES 
QOHLY WAITING 

LINGER ... WANDERING 
SAD PEACEFUL 

WANDER ING 

REACH OUT 

DOMLY ... ONLY LOVERS 
LOUERS 

ONLY PEACEFUL 

SAD WAITING 

ONLY REACH OUT 


HEART SAD SAD EVES 
LIMPID SAD PEACEFUL 
WANDER IHG 

LIHGER REACH OUT 
FEACEFUL 

WANDER ING 

EVES 

EVES 
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CHAPTER SIX — LOOPING THE LOOP 


We've discussed CONT, GOTO and ON...GOTO, and now 
we'LL look at words which are nearly always’ paired 
in programs, FOR and NEXT. 


Essentially, FOR and NEXT control a loop which is 
executed the number of times specified in the FOR 
Statement. The following program fragment’ should 
help make it clear: 


19 REM FOR/NEXT 

29 FOR A=1 TO 10 

3@ PRINT "THE US OF A NO 
"3A 

49 NEXT A 


When you run it, you'll get this result: 


THE US OF A NOW 1 
THE US OF A WO. 2 
THE US OF A NO. 3 
THE WS OF A NOW 4 
THE US OF A NO. 5 
THE US OF A NOD. 6 
THE US OF A NO. ? 
THE US OF A NO. 8 
THE US OF AHO. 9 
THE US OF A NO. 16 


THE US OF A NO. is printed out ten times, with each 
Line ending with the value A has during that 
execution of the FOR/NEXT Loop. Once you've run it a 
few times, change Line 40 to read as follows: 


48 NEXT 


That is, you remove the A, the 'control variable’. 
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The computer knows which FOR the NEXT refers to, so 
the 'A' is not needed. However, when you have a 
number of Loops, you may prefer to have the NEXTs 
paired with FORs, just so you can keep track of what 
is happening in the program. 


You can nest Loops (that is, have one or more inside 
the other) if needed. Here is an example of one Loop 
nested inside another — the B Loop is nested within 
the A loop. This routine prints out the multi- 
plication tables from one times one to twelve times 
twelve. 

18 REM NESTED LOOPS 

24 FOR A=1 TO 12 

2@ FOR B=1 TO 12 

44 PRINT AS "TIMES"3B:"=" 

;AXB 

a4 NEXT B 

68 WEXT A 


It is important that the Last NEXT that occurs’ in 
the program has the same control variable (the 
letter A, B or whatever) as the first FOR which is 
in the program. As you can see in the program 
above, the first FOR is A, and the Last NEXT in the 
program is also A. The next control variable 
mentioned in the program is B, and the second Last 
NEXT is also B. It is vital that you arrange your 
FOR and NEXT controls in this way, or the computer 
will get a Little hot under the collar. You can 
demonstrate this by changing Lines 50 and 60 to the 
following: 


This will give rise to the error message 'NF Error 
in 60' (no FOR...). One way to get around this is to 
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remove the control variables from the NEXTs and let 
the computer sort them out. In this case, the final 
two Lines of the program would read: 


sa MEXT 

6@ HEXT 
Another way of doing it is to delete Line 60 (which 
you do by typing in 60, with nothing following, then 
pressing RETURN) and change Line 50 to this: 


58 NEXT B.A 


As you'LL see when you try this, the program works 
exactly the same in all cases, except when you get 
the control variables in the wrong order. You'Ll 
find the computer works fractionally more quickly 
when it does not have to check the correctness of 
the control variables. Therefore, the use of NEXT, 
without a control variable, is probably the simplest 
way to use FOR/NEXT Loops. However, I suggest that 
now -— at the beginning of your acquisition of 
programming skills — you stick to the version given 
in the first program, using NEXT B and NEXT A. 


This will help you keep track of what is going on 
within the program. 


FOR/NEXT...STEP 


There is another aspect of FOR/NEXT Loops which must 
be discussed, and that is the use of STEP. Clear 
your computer's memory by typing in NEW, then press-— 
ing RETURN, and enter the following program: 

1@ REM FOR-NEXT... STEF 

2a FOR A=1 TO 2a 

24 PRIWT A 

48 HEXT A 
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When you RUN this, you'LL see the numbers 1 to 20 
printed on the screen. Now, change Line 20 so it 
looks Like this: 


28 FOR A=1 TO 26 STEF 2 


When you run this, instead of the computer printing 
out 1, 2, 3, 4, 5, 6... and so on down to 20, you'Ll 
see 1, 3, 5, 7, 9...down to 19. The computer has 
started counting from the first number quoted in the 
control statement (FROM A = 1 TO ...) to the closest 
it can get to the final number, counting up in 
two's. Change Line 20 to this, and RUN the program 
again: 
28 FOR A=1 TO 2@ STEP 3 


This time you should see 1, 4, 7, 10...etc. 


So, from this we can Learn that FOR/NEXT Loops will 
step up in ones, unless another STEP size is 
specified. The STEP of one is the default case, 
which occurs when no other STEP size is specified. 


The computer can also count downwards. There is’ no 
reason why a FOR/NEXT Loop must go upwards. Try the 
following to see this: 


14 REM FOR-NEXT... STEP 
2A FOR A=26 TO 1 STEP -1 
36 PRINT A 

4@ NEXT A 


The STEP size does not have to be a whole number, as 
you'LL discover if you change Line 20 to this: 


26 FOR A=z26 TO 1 STEP -@.? 
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It is time now to return to our 'Number Race! 
program, to Look at the FOR/NEXT Loops in it. Either 
load the program back in, or refer to the’ Listing 
given in the previous chapter. 


The first Loop, a 'T' Loop, starts in Line 50 and 
ends in Line 170. Note that Line 170 just reads 
NEXT. It could read NEXT T, but, as was pointed out, 
the computer knows which FOR the NEXT is" referring 
to. 


The first action within the Loop is to subtract five 
dollars from each of the players' stakes, then —- 
still within the loop — the players' bets ffor a 
winning horse are taken. Line 160 rejects the second 
player's chosen horse if it is the same as the first 
player's one. Line 180 seeds the random number 
generator, a topic we'll be discussing shortly, with 
a number related to how long it took the two players 
to choose their horses. 'Seeding' the random number 
generator, which is done with the RANDOMIZE command, 
ensures that numbers which are more or Less genuine- 
ly random are produced. Without Line 180, you'd 
find the same horse would tend to win every race. 


Our next FOR/NEXT Loop is held in Line 200. # Notice 
that this loop also uses aT as control variable. It 
is perfectly alright to use the same Letter ffor 
different loops within a program, so long as_ the 
Loops are not contained within each other. Because 
there is a slight bias towards horses with Lower 
numbers (as they are checked in numerical order to 
see if their have crossed the finish Line, and if 
horses one and four have both crossed this Line, 
horse one will be awarded the race because it is 
checked first) the Loop in Line 200 gives the horses 
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with higher numbers a slight edge at the start of 
the race. 


The race proper is held within the Loop, with 
control variable B, from Line 210 to 270. This runs 
over and over again, adding a Little (line 220) to 
each horse's total, until one of the horses (see 
line 250) has a total which is greater than 17, when 
action is transferred to Line 300 where the winner 
is proclaimed. Lines 310 and 320 check to see if 
either player had picked the winning horse, and if 
so, $10 is added to the Lucky punter's stake. Line 
330 uses another FOR/NEXT Loop for a few sounds, and 
so do the following sections, gradually printing up 
(with musical accompaniment) "Stand by...for a 
new...RACE!!!!". Another Loop, Line 400, using STEP 
as we discussed earlier, produces more music’ and 
then action goes to Line 40 to start the new race. 


PRINTER CONTROLS 


There are three commands to trigger the printer — 
LLIST, LPRINT and COPY. LLIST and LPRINT work much 
the same as the screen commands LIST and_ PRINT, 
except they write to the printer, instead of to the 
screen. (By the way, the use of 'to' in this sen- 
tence, as in ‘write to the printer' is a peculiarity 
of computer talk. When someone speaking computer 
jargon says ‘write to the printer' she means ‘print 
out on paper', and by 'write to the screen'- she 
means ‘display on the screen'.) Where as LIST will 
make a Listing scroll up on the screen, LLIST will 
print the whole thing on the printer. 


You can write programs to use the printer 
exclusively, ignoring the screen. Here for example 
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is a 'mini derby' program, a somewhat’ simplified 
version of ‘Number Race', which only uses the 
printer. The Listing, of course, was dumped (more 
jargon) to the printer using LLIST. 


1@ REM MINI DERBY 

20 N=1 

380 LPRINT 

4@ LPRINT "PRESS A KEY T 
0 BEGIN" 

5Q N=N+1:IF INKEY$="" TH 
EN 5@ 

6@ RANDOMIZE N 

7@ DIM AC4) 

8@ LPRINT 

94 LPRINT 

108 LPRINT"- SSeSsSe ssa SSs 
11@ FOR B=1 TO 4 

126 ACB=ACB+RNDC 19%*6 
136 FOR T=1 TO ACB3 

146 LPRINT ". "5 

158 NEXT T 

166 LPRINT B; 

176 IF ACB)>1? THEN 226 
186 IF B<4 THENLPRINT 
198 NEXT 

288 LPRINT"= Sars ssc ss 
21@ GOTO 8@ 

226 LPRINT:LPRINT "AND T 
HE WINNER IS"5B 


And here is one run of the program. The_ screen 
remains blank (apart from the word RUN) throughout: 
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PRESS A KEY TO BEGIN 


esseeueepueepeeeueen 1 
eavenccessces 2 
snecwcenessssees © 


eencccessccessece 1 
AHD THE WINNER IS 1 
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It appears that the lower numbers may enjoy an 
advantage, so we can add a line Like the following 
to try and remove it: 


75 FOR B=1 TO 4:A¢B>=B:N 
EXT 
Now Let's run it again: 


secasace 3S 


aie 


AND THE WINNER IS 4 


At least the other numbers now seem to have a fight- 
ing chance. 
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The final printer command we'LL use is COPY, which 
simply dumps whatever is on the screen to _ the 
printer. Type in COPY now, and see what you get. 
When I typed in COPY and pressed RETURN, I got this, 
the Last few things I'd entered: 


LLIST?5 
RUN 
COPY 
TIMES, DATES 


The Epson HX20 is supplied with a continuous 
internal clock and calendar, a pair of very useful 
features. When you first turn on the computer you'Ll 
see this: 


CTRL“@ Initialise 
1 MONITOR 
2 BASIC 


If you hold down the control key, marked CTRL and 
just above SHIFT on the Left hand side of the key- 
board, and press the @ key at the same time, you'LL 
be asked to enter the date and time in the following 
format: 


- month as two digits 

-— day as two digits 

—- year as two digits 

- hour as two digits 

- minutes as two digits 
—- seconds as two digits 


Press RETURN after all this. If you make a mistake, 
press BREAK, then press the key to the Left of BREAK 
marked MENU, to get back to the initial display to 
start again. Once you've entered the time and date, 
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return to the book. If you now type in PRINT DATES, 
then press RETURN, the date will be printed up: 


61/89/88 


Type in PRINT TIMES (or ? TIME$, using ? as an 
abbreviation for PRINT), and you'LL get the time: 


12:57: 69 


Now this is quite convenient if you just want to 
check the time and/or date from time to time, but if 
you want a continuous readout, and you don't mind 
humbling your computer to become a highly expensive 
digital clock, you can enter and run the following 
program: 


1@ REM Disital Clock 
28 AS=TIMES 

38 CLS 

49 PRINT TABC3): DATES 
58 PRINT 

64 PRINT TABC6)3 TIMES 
7@ IF TIMES=A$ THEN 7@ 
88 GOTO 26 


And if you decide you can do without the date, and 
simply want a tiny program to type in whenever’ you 
want to have your computer displaying the time, the 
following program will do: 


10 AS=TIMES 

28 CLS 

3@ PRINT TABC6)3 TIMES 
40 IF TIMES=A$ THEN 40 
5@ GOTO 18 
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For a bit of fun with this program, add _ the 
following two Lines, which will cause the computer 
to beep every ten seconds: 


35 A=VALCRIGHTSCTIMES, 2) 
2 


36 IF 1@*CINTCA‘109 =A T 
HEN SOUND CA“2+5),1 


Line 35 may Look pretty terrifying, but don't worry 
about it now. We'LL be looking at things such as 
RIGHT$ in due course, and you'LL see then that even 
lines Like 35 are fairly easy to understand. 


It is possible to produce a more eleborate clock, 
which beeps every 10 seconds, and plays a Little 
trill every minute. Here is the Listing: 


18 CLS 

28 PRINT 

36 PRINT TABC6); TIMES 

40 IF 1@*INTCM/1@9=M THE 
M SOUND M.1 

56 IF M=@ THEN FOR J=1 T 
0 4:SOUND 12*J,12NEXT 

6a AF=TIMES 

74 IF TIMES=A$ THEN 76 
8@ M=VALCRIGHTS$(TIMES, 2) 
») 


aa GOTO 10 


If you want to get really involved, you can produce 
a clock which makes continuously changing’ sounds, 
which are related to the time. You'LL notice as well 
that the time moves across the screen every 10 
seconds. (This is a clock for bored people.) 
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18 CLS 

28 PRINT 

38 N=16*INTCM-“16) 

48 PRINT TABCM-N2s TIMES 

3@ IF N=M THEN SOUND M,1 
ELSE SOUND 2¥¢(M-N)>,@.5 

68 IF M=6 THEN FOR J=1 T 
O 4:SQUND 12*J,12NEXT 
7 AS=TIMES 

3H IF TIME$S=A$ THEN 8@ 
30 M=VALCRIGHTS$<( TIMES, 2) 
¥ 


188 GOTO 16 
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CHAPTER SEVEN — CONTINUING UP THE LEARNING CURVE 


Let's look back over the ground we've covered _ so 
far, As you can see, there is a great deal we have 
already done. By now, you should have a fair working 
knowledge of the following words, and may well be 
able to manipulate them with a degree of facility: 


PRINT, LIST, NEW, RUN, TAB, CLS, REM, CONT, 
GOTO, FOR and NEXT, ON...GOTO and FOR/NEXT...STEP 


As well as these words, you've learned about such 
things as program Lines, numeric and string 
variables, how to use a semicolon in PRINT state- 
ments, and how to control the printer with LLIST, 
LPRINT and COPY. 


We've come a considerable distance already, and in 
many ways the worst is now over! The ‘Learning 
curve' for BASIC is a gentle, upward slope, with the 
steepest part of the slope representing your first 
few hours of Learning. Once you have those first few 
hours behind you — which you should have at_ this 
point - you'll discover that the additional things 
you learn interlock neatly with the material you've 
already mastered. This makes the Learning process a 
satisfying, and not too demanding, one. 


RENUM and DELETE 


The computer is fitted with some very useful 
commands to aid you in programming. RENUM stands for 
renumber and allows you to ensure your program has 
neatly numbered Lines before you save it on tape or 
disk, or dump it to the printer. It works very 
quickly. 
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Consider the following program, based on the digital 
clock one: 


5 REM Digital Clock 2 
7 REM AS is assigned 
8 REM to equal TIMES 
1@ AS=TIMES 

15 REM CLS clears 

16 REM the screen 

20 CLS 

3@ PRINT TABC6)3 TIMES 
32 REM The next lines 
33 REM make the ’beep’ 
35 A=VALCRIGHTSCTIMES; 2) 


6 IF 16*CINTCA‘1@>)=A T 
HEN SOUND (A“2+5), 1 

4@ IF TIMES=A$ THEN 40 
5@ GOTO 18 


If we now type in RENUM, and press RETURN, in a few 
seconds we'LL have this program: 


16 REM Digital Clock 2 
2@ REM AS is assigned 
3@ REM to equal TIMES 
46 AS=TIMES 

50 REM CLS clears 

66 REM the screen 

78 CLS 

86 PRINT TABC6)3 TIMES 
9@ REM The next lines 
19@ REM make the ’ beer’ 
116 A=VYALCRIGHTS( TIMES, 2 


oP) 

120 IF 10*CINTCA/1@2>=A 
THEN SOUND (A“2+5)>1 

136 IF TIME¢=A$ THEN 130 
14@ GOTO 46 


Notice how RENUM not only changes the Line numbers 
into steps of 10, but also changes the GOTO and 
GOSUB destinations to the correct (new) numbers. The 
program is renumbered in tens, starting with 10 as 
the first Line number, unless you specify otherwise. 


To show how you can specify a different numbering 
system, look at the following example. If you enter 
RENUM 7, 10, 13 will renumber the program with the 
first Line number as 7, from line 10, in steps of 
13. This produces the following, somewhat odd, 
program Listing: 


? REM Disital Clock 2 
28 REM A$ is assigned 
33 REM to eaual TIMES 
46 AS=TIMES 

59 REM CLS clears 

72 REM the screen 

#5 CLS 

38 PRINT TAB“6)3 TIMES 
111 REM The next lines 
124 REM make the ’ beep’ 
137 A=VUALCRIGHTSCTIMES$, 2 
: 


32 

15@ IF 1@*CINTCA“1@5)9=A 
THEN SOUND CA/2+5),1 

163 IF TIME$=A$ THEN 163 
176 GOTO 46 


You specify the renumbering you desire as follows: 


RENUM X, Y, Z where X is the number you want 
the first Line to start with, Y is the number 
you want the renumbering to start from (it was 
10 in the above example, so renumbering began 
from the first Line) and Z is the step size. 
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If you decided just to renumber the Last four Lines, 
from 137, in steps of 99, and you wanted the Line 
which is now 137 to become 1000, you'd enter RENUM 
1000, 137, 99 to produce the following: 


7 REM Digital Clock 2 

26 REM AS is assigned 

33 REM to equal TIME$ 

46 AS=TIMES 

59 REM CLS clears 

72 REM the screen 

65 CLS 

98 PRINT TABC6)3 TIMES 
111 REM The next lines 
124 REM make the ’ beer’ 
1986 A=VALCRIGHTS¢ TIMES, 

2)> 

1999 IF 1@*C INTCA/1@)>=A 
THEN SOUND CA/’2+55,1 
1198 IF TIME$=A$ THEN 11 


93 
1297 GOTO 46 


These contrived examples indicate how RENUM is used, 
although you're most unlikely to want to renumber in 
this way. RENUM is useful not only for cleaning up 
Listings before you save or dump them, but also for 
"making space' in Listings if you decide you wish to 
add extra Lines at some point in a program and are 
running out of room for this. In the Last Listing, 
we have made a Large space between Lines 124 and 
1000 where additional Lines could be inserted. 


DELETE, as you can probably imagine, gets rid of 
certain program Lines. If you have the above program 
in your computer, and you entered DELETE 59 - 124 
and pressed RETURN, you'd end up with this program: 


90 


? REM Digital Clock 2 
26 REM A$ is assisned 
33 REM to equal TIME$ 


46 AS=TIMES 
1@00 A=VALCRIGHTSCTIMES, 
2)) 


1999 IF 16*C INTCA“1@))>=A 
THEN SOUND CA/2+5),1 
1198 IF TIMES=A$ THEN 11 


98 
1297 GOTO 46 


As you can see, lines 59, 72, 85, 98, 111 and 124 
have vanished. The format for DELETE is the word 
DELETE followed by the first Line number you wish to 
remove, followed by a hyphen, then the final Line 
number you wish to remove. 


MULTI-STATEMENT LINES 


We've used these in several programs already. A 
multi-statement Line is Like the following: 


1@ FOR T=1 TO 26:PRINT T 
?SOUND T,1!NEXT 


As you'll see if you run this, it is a complete 
program in one Line. This takes the place of the 
following four Lines: 


18 FOR T=1 TO 20 
28 PRINT T 

38 SOUND T>1 

48 NEXT 


Running this four-Line program will demonstrate that 
it does exactly the same as the multi-statement 
Line. 
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In general, I'd advise you to stay away from muLlti- 
statement Lines, as they make errors harder to spot, 
and can make tracing a program’ through very 
difficult. There are also traps. For example, in the 
next two Lines, the second statement (following the 
colon, which is always used to separate statements 
with a single Line number) will never be executed: 


1@ GOTO 56:A=25 


10 REM End of Program:PR 
INT "That’s all, folks!" 


The use of single or multi-statement Lines is, in 
large measure, a question of taste. Because it is 
easier to decipher programs which have single state— 
ment Lines, than it is to decipher those with multi- 
statement Lines, I am generally in favor of sticking 
to single statement Lines. However, you may well 
decide you prefer the compactness of programs which 
make good use of multi-statement Lines. 


There are times when multi-statement Lines are 
desirable, or even essential. Two areas when they 
are desirable are when spacing out PRINT statements 
as follows (Line 20): 


18 PRINT "EAGLES" 
28 PRINT! PRINT 
39 PRINT "FLYING" 
48 PRINT: PRINT 
38 GOTO 16 


or for 'dummy' Loops for delay as follows (also Line 
20): 


1@ SOUND RNDC1)9*4@, 1 
2@ FOR T=1 TO 256: NEXT 
3a GOTO 16 
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A FEW FUNCTIONS 


By now, I'm sure you've realised that the programs 
we've looked at so far include many BASIC’ words 
which have not been explained. This is because, 
after a certain point, it becomes increasingly 
difficult to avoid assuming certain words are known, 
if worthwhile programs are to be introduced. Some of 
the words -— such as INPUT - have pretty obvious 
meanings. However, even those which I assume you'LlL 
understand without Long explanations will be covered 
in the coming pages. If, by now, you're able to 
work out what new words are Likely to mean, you may 
well want to skim parts of the following, just to 
check that your guess was right. 


SQR, INT and ABS 


These three functions act on numbers to produce the 
results suggested by their names. SQR returns’ the 
Square root of a number, INT the integer portion and 
ABS the absolute value of the number. You’ probably 
don't need any introduction to SQR. Type in the 
following and press RETURN: 


PRINT SQR¢4) 


Of course, you'Ll get the result of 2, the square 
root of 4. The next program shows INT and ABS in 
use. Enter the program and run it, trying different 
numbers each time. 
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1@ REM A FEW FUNCTIONS 
28 GOSUB 130 
39 PRINT "ENTER A NUMBER 


44 INPUT A 

5@ GOSUB 130 

68 PRINT "YOUR NUMBER" 
7@ PRINT "IS"5A 

88 GOSUB 136 

9@ PRINT "INTCAD="3 INTCA 
19@ GOSUB 138 

11@ PRINT "ABSCAD="3 ABS 
A? 

12@ END 

13@ FOR T=1 TO 5@@: NEXT 
146 CLS 

15@ RETURN 


This will not tell you too much if you just enter 
whole, positive numbers, as the program output will 
Look Like this: 


ENTER A NUMBER 


YOUR NUMBER 
Is 45 


INTCAD= 45 
ABSCAD= 45 


But enter a number Like —34.567 and you'Ll see INT 
and ABS in action clearly: 


ENTER A NUMBER 


YOUR NUMBER 
IS-34. 567 


INTCA=-35 
ABSCAD= 34. 567 
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From this, 
Lowest whole 
difference as 
positive, whole 
which it is acting. 


ROUNDING UP If you'd Like to round numbers 


you can see that INT returns 
number (rather than 
you'LL 
number portion of the number 


the 
rounding 
and ABS 


next 
up, a 
returns . the 
upon 


see), 


to the 


nearest whole number (so 2.54 becomes 3, rather than 


2, as 
routine: 


using INT would produce) use the 


following 


REM ROUNDING TO 
REM NEAREST WHOLE 
REM NUMBER 
GOSUB 146 
PRINT “ENTER A NUMBER 
INPUT A 
GOSUB 148 
PRINT "YOUR NUMBER" 
PRINT "IS"3A 
GOSUB 148 
PRINT "ROUNDED; " 
PRINT AS "IS"3 INTCA+G 


END 

FOR T=1 TO 5@@:NEXT 
CLS 

RETURN 


As these examples show, positive numbers are rounded 


up to the nearest 


whole number, while negative 


numbers are rounded down: 


YOUR NUMBER 
IS 45. 67 


ROUNDED, 
45.67 IS 46 


To round a number, 
INT. 


YOUR NUMBER 
15-45. 6? 


ROUNDED, 
-45.67 IS-46 


simply add 0.5 to it, then apply 


95 


CHAPTER EIGHT — RANDOM NUMBERS AND DECISION MAKING 


We've used random numbers several times already in 
this book, such as in the section on numeric 
variables for generating the initial 'population' in 
STAR COLONY and in the NUMBER RACE. Random numbers 
are very useful in games programs and _ simulation 
programs as they allow the computer to appear as if 
it is chosing from a number of alternatives. 


By now you probably know the format for the 
production of random numbers. PRINT RND(1) will 
produce a number between zero and one. 


This two-line program shows you the kind of numbers 
you get: 

1@ PRINT RNDCi) 

2a GOTO 168 


Running it for a few seconds produces numbers’ Like 
these: 


991865 
267991 

» J0A967 

» 635863 

- 14411 

» 866334 

4. 2987 3E-82 
» 953862 

» 3594289 


These numbers, between zero and one, are not of much 
general use. Whole numbers (such as 5, 887 and 2345) 
prove of much greater use in many programs. However, 
the fractions can be used. Imagine we wanted to 
emulate the tossing of a coin. We could say _ that 
each time the random number produced was less. than 
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0.5 it equalled a 'tail' and each time the random 
number equalled or was greater than 0.5, it repres— 
ented a ‘'head'. Here's a Little program to show 
this: 

1@ A=RHDC1> 

28 IF ACG. S THEN PRINT “ 


HEAD" 

38 IF A>=@.5 THEN PRINT 
"TAIL" 

44 60TO 14 


Run it for a few seconds and you'Ll get a_ result 
Like this: 

TAIL 

HEAL 

TAIL 

TAIL 

HEAD 

TAIL 

HEAD 


We can now Look at the mechanism by which the comp— 
uter makes decisions. Examine Lines 20 and 30 of 
the preceding program. They say IF the random number 
(the variable A) is less than 0.5 THEN PRINT "HEAD" 
(Line 30), and IF the random number is greater than, 
or equal to, O.5, THEN PRINT "TAIL" (Line 30). 


These two Lines are examples of IF/THEN statements. 
They are easy to understand. IF a condition is true, 
THEN do something. IF/THEN can be followed by other 
things than a PRINT statement. For example, if we 
wanted the computer to make a high tone if it rolled 
a head, anda Low tone for a tail, we could use the 
following program: 1@ @=RNDC1) 
28 IF A¢@.5 THEN SOUND 5 


8.5 


28 IF A<=@.5 THEN SOUND 
1:5 
44 GOTO 16 
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IF/THEN can also be followed by instructions to GOTO 
a certain Line. The format for this is: 


IF ACS THEN GOTO 106 


As you know, the word GOTO is optional in this case, 
as the computer will understand what is required. 
The format can be: 


IF AXS THEN 188 


This has exactly the same effect as the earlier 
Line. 


There is another word we can use in connection with 
IF/THEN. This other word is ELSE. ELSE is used when 
you want the computer to do something IF a condition 
is fulfilled, and to do something ELSE if the 
condition is not fulfilled. We can demonstrate this 
with a variation on the HEAD/TAIL program: 


18 A=RNDC1> 
28 IF A<@.5 THEN PRINT " 
HEAD" ELSE PRINT "TAIL" 
34 GOTO 16 


Running this produces exactly the same result as 
running the initial version. There is no reason why 
the two conditions should be of the same type, as 
the following variation of that program shows: 


18 A=RNDC1> 

20 IF AC@.5 THEN PRINT " 
HEAD" ELSE SOUND2@,5 

34 GOTO 16 


Let's get back to random numbers. If you'd been 


watching the output of the HEAD/TAIL program 
closely, you'd have noticed that there are almost 


exactly the same number of heads as there are tails, 
which is as it should be. If the random number 
generator was producing genuinely random numbers, 
then there should be about as many numbers’ greater 
than 0.5 as there are numbers below 0.5. But how 
can we check this, and how can we be sure that’ the 
same sequence of 'random' numbers is not produced 
each time we run the program? 


We'LL attempt to answer those questions in a moment, 
but we must first discuss another aspect of random 
number use. 


If you want whole numbers, rather than’ fractions, 
you have to manipulate the random number’ produced. 
This next program produces random numbers’ between 
zero and one: 


1@ PRINT RND¢C1> 
28 GOTO 18 


If you want numbers between zero and nine, you need 
to do the following: 


18 PRINT INT¢CRNDC19*1@) 
28 GOTO 16 


Note that the number you multiply by RND(1) is one 
more than the maximum randomly generated integer you 
want. To get numbers between one and ten, you just 
add one to the produced number, as follows: 


19 PRINT INTCRNDC194*105+ 
1 
24 GOTO 18 


Now we are in a position to check the randomness or 
otherwise of the numbers produced by the computer's 
random number generator. I ran the following program 
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twice and came up with the results with follow the 
program: 


1@ FOR B=1 TO 16 
28 PRINT INT¢RNDC12#105+ 
13 
3Q@ NEXT 
3.6 7 2 9 1 164 
4 6 


As you can see, the 'random' numbers are not part- 
icularly random at all. Subsequent runs produced the 
same result. At first I thought that a Longer run 
might produce numbers which more closely approached 
randomness, so I wrote the following program to 
produce 100 numbers at random between O and 9 and to 
count how often each number was produced. Because 
the total number of integers produced was 100, a 
count of each could be expressed as a_ percentage. 
Here is the program I used: 


1@ REM Random number 

20 REM distribution 

3@ DIM ACID 

46 FOR B=1 TO 160 

56 C=INTCRNDC19*10> 

68 ACCI=ACCI+1 

7Q NEXT 

3@ FOR B=@ TO 3 

96 LPRINT Bs" "SACBO3"%" 
146 NEXT 


100 


And here are the results of running it twice: 


6 94% 6 9% 
1 13% 1 13% 
2 8% 2 #B% 
3. 415% 3. 15% 
4°6% 4 6% 
3S 12% 5 12% 
6 14% 6 14% 
F 18% 7 18% 
8 8% 8 8X 
9 34% 9 oS 


As you can see, the Longer runs do not indicate that 
the numbers become more random. There is a sol- 
ution. Your computer generates random numbers’ by 
reading through a long, long List of numbers. The 
List is so long that it is virtually impossible to 
detect a sequence in it. If, however, the sequence 
is set back to its beginning each time RUN is 
entered (as has happened in the sample programs 
we've run), any pretence of randomness is Lost. 


The RANDOMIZE command is used to start the select-— 
ion of numbers from different points in the List. 
The number which follows RANDOMIZE (known as_ the 
"seed') tells the computer where in the List to 
begin. You can use RANDOMIZE Like this, without a 
following number: 

18 RANDOMIZE 

24 PRIWT RNDC1) 

38 GOTO 28 


However, when you run it, the computer will print 
up 


om 


eed? 


and refuse to continue until you enter a number. 


There are a couple of convenient ways to seed the 
random number generator, to ensure that the numbers 
produced are close to numbers chosen properly at 
random, which do not involve entering seed numbers 
and then pressing RETURN. One way is to use the 
delay taken to respond to an instruction as_ the 
seed. This is used in the STAR COLONY program. Here 
is a Little routine to show it in action: 


ig N=6 

28 PRINT "PRESS ANY KEY" 
38 PRINT "TO CONTINUE" 
44 N=N+1 

58 IF INKEY$="" THEN 4@ 
68 RANDOMIZE N 

7@ PRINT N 


As you'LL see when you run this program, the Longer 
you take to press a key, the higher the value 
assigned to N, the seed of the random number gen- 
erator. Even though this is fairly simple, it is 
still not the most desirable way of seeding the 
generator, aS some response — which is not really 
related to the program — is required from the user. 


Fortunately, there is another way to solve the 
problem. The computer (as we discovered earlier) has 
a built-in clock. The 'seconds' value changes 60 
times a minute, so if this value can be accessed it 
could be used to automatically seed the random 
number generator. I will not explain, at this 
point, how the Line I'm about to give you, works 
(because we'LL be discussing string handling 
shortly), but just give it to you to use. 


If you enter the following program, you'll see the 
time printed up, then the second's value: 


14 PRINT TIMES 

28 PRINT RIGHT$CTIMES; 2) 
38 FOR T=1 TO 68°NEXT 
44 GOTO 16 


The RIGHT$(TIME$,2) extracts the second's value. 


You'LL recall we got the computer to print out 100 
numbers generated at random between O and 9. If we 
add a variation of the RIGHT$(TIME$,2) to the 
program, as_ the means of seeding the random number 
generator, we should be able to produce a_ sequence 
of numbers different from the one we got twice in a 
row before. 


Add the following Line to the program which was 
given a few pages ago, and run it again: 

25 RANDOMIZE VYALCRIGHT#<¢ 

TIMES, 23 
Here are the results of a couple of runs produced by 
the program, with Line 25 in place 


COOrWRr eee 

o Uo + 
“x wx 

ww 


OBOIHARWIe @ 
— Ole er OOD 
WONHAURWANE © 


Instead of showing the result as a List of percen- 
tages, we can get the computer to print up a bar 
chart to illustrate the number of times each number, 
between O and 9, is produced in a run of 100 


numbers. This program will do it (a couple of sample 
runs follow the program Listing): 


16 REM Random number 
20 REM bar chart 

38 RANDOMIZE VALCRIGHTS¢ 
TIMES: 23> 

49 DIM AC9> 

58 FOR B=1 TO 166 

66 C=INTCRNDC1)>*1@> 
TB ACCI=HACCI+1 

6&8 NEXT 

96 FOR B=@ TO 9 

16@ LPRINT B; 

114 FOR C=1 TO ACB 
124 LPRINT CHR$(128)3 
136 HEXT 

144 LPRINT 

158 NEXT 


Won Oe Oboe & 


i 
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DICE ROLLS 


Random numbers can be used, as we have seen, to 
emulate randomly occurring events in 'real lLife', 
such as the result of tossing a coin a number of 
times. Dice throws produce, if the dice are 
unbiased, random numbers between one and six, and it 
is very easy to get the computer to emulate’ the 
throw of a single die, as this program illustrates: 


14 RANDOMIZE WALCRIGHTS¢ 
TIME#, 25) 

2B A=INTCRNDC 19*6941 

28 CLS 

48 SGUND 6*A;2 

3@ ON A GOSUB 8.188.126 
> 146,168,186 

68 FOR T=1 TO 486: NEXT 
Ta GOTO 26 

88 PRINT:PRINT " * " 

98 RETURN 

18 PRINT "*"!PRINTIPRIN 
spas et 

11@ RETURN 

120 PRINT "#"=PRINT" #"5 
PRINT" &" 

138 RETURN 

14a PRINT"* *"SPRINT!PRI 
HT u * * u 

13a RETURH 

168 PRINT"* *"iPRINT" &" 
>PRINT"* &" 

178 RETURN 

186 PRINT'* *"IPRINT x & 
u Ly PRINT" ee 

138 RETURN 
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Here's what it looks Like in action: 


OK * O# 
* * * 
OK OOK 
* * OK * x 
* «OK 
* * * Ok 
* * * « 
* Ox * 
+ * 


Many dice games require you to throw two dice at 
once, then add the pips. At first thought, you might 
feel the way to do this with the computer would be 
to get the computer to generate random numbers 
between 1 and 12. However, it does not work that 
way. Although the chance of a single die _ falling 
with any face showing is one in six [around 17%), 
the distribution of totals produced by two dice is 
as follows: total 2 (2.77%), total 3 (5.55%), total 
4 (8.33%), total 5 (11.11%), total 6 (13.88%), total 
7 (16.66%), total 8 (13.88%), total 9 (11.11%), 
total 10 (8.33%), total 11 (5.55%) and total 12 
(2.77%). 


The different numbers are due to the number of 
different ways a particular total can be reached. 
Seven, for example, can be reached in six different 
ways (1+ 6, 2+5, 4+ 3,3 +4, 5+ 2 and6 +1), 
while a total of two or of twelve can only be 
reached in one way (1 + 1 or 6 + 6). 


If a random number generator is working properly, 


and it is used to demonstrate how two dice might 
fall, we would expect the distribution of the totals 
to approach the theoretical distribution given in 
the preceding paragraph. We'LL test it to see. Here 
is a program to throw two dice, followed by the 
results of two trials. Note that in each case _ the 
dice are thrown 100 times: 


16 REM Throwins two 


28 REM dice 
38 RANDOMIZE VALCRIGHT$¢ 
TIMES, 2)> 


44 DIM AC12> 

S@ FOR B=1 TO 108 

68 C=INTCRNDC19*6)+1 

7A C=C+INTCRNDC19*6 941 
8@ ACCI=ACC) +1 

38 NEXT 

196 FOR B=1 TO 12 

11@ LPRINT B:"-"SACB93"% 


124 NEXT 

1-6% 1-@% 
2-24 2- 4% 
3-45 3-6% 
44-74% 4-7% 
5-94 5S - 14% 
6-17 % 6-15 % 
?- 13% 7 - 16% 
B- 18% 8- 15% 
9- 14% 9-9 % 
1g@- 7% 1@- 11% 
1i-S% 11-53% 
12-14% 12- 2% 


As you can see, the distribution of totals is fairly 
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close to the predicted distribution. Certainly the 
totals show a bulge around the seven. 


The program was modified to throw the dice 1000 
times, with the idea that the total should more 
closely approach that which was predicted. Here is 
the result of throwing a pair of dice 1000 times: 


OO hw! 
NNN 
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As you can see, this is closer (as expected) to the 
theoretical distribution. Finally, the program was 
modified again, this time for 10,000 throws. Rounded 
up, the result is very close to the predicted result 
which shows that the random number generator in’ the 
computer is working well and, for all normal uses, 


can be assumed to be producing genuinely random 
numbers. -O% 


NO O00 2% Oe ON 


prrrrdas 
-_ 
iy 
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CHAPTER NINE — STRING HANDLING AND REVERSI 


You may remember from our discussion on variables 
that strings are designated by variable names ending 
with a dollar sign. Strings are very useful parts of 
your working vocabulary in BASIC, as they can be 
manipulated to produce a number of valuable results. 


The string functions we'LL be Looking at in_ this 
section are STR$, VAL, LEN, LEFT$, RIGHT$ and MID$. 
Although an expression containing some of these may 
look bewildering (as you'LL recall if you think back 
to the RIGHTS extraction of TIME$ used to seed the 
random number generator in the Last chapter) they 
are easy to use if you tackle them carefully. 


STR$ 


STR$ (which is often said aloud as 'string dollar' 
or ‘string string', although I prefer the former) 
changes a number into an equivalent string. That is, 
it changes 45.6 into "45.6", a transformation which 
does not appear immediately to be one which has very 
much value. However, it is useful in come circum-— 
stances because strings are in some ways easier to 
manipulate than are numbers. I'LL show you one use 
in a moment, but first we must Look at two other 
string functions. 


LEN 


This function finds the Length of a string, so if 
you told the computer to print LEN(A$) where A$ was 
"FULTON", it would return 6. If A$ was "45.6", then 
LEN(A$) would be 4, as the decimal point counts as 
one of the characters in the string. 


VAL 


This acts as the opposite of STR$&,. That is, 
STR$(42.6) is "42.6" while VAL("42.6") is 42.6. 


We can use two of these to produce a program which 
Lines numbers up to the right (instead of to the 
left, as is usually the case): 


1@ FOR J=1 TO 5 

28 READ A 

38 AF=STRFCAD 

48 PRINT TABC1@-LENCAS>) 
ut "Sos 

SQ NEXT 

68 DATA 23. 45,354. 87.1.3 
5S» 1444, 75,23. 74 


This is what the output Looks Like: 


$ 23.45 
$ 358. G7 
$ 1.35 
€ 1444.75 
$ 23.74 


Line 20 reads the number from the DATA statement, 
and Line 30 changes this number (A) into a_ string 
(A$). Line 40 prints this, using a TAB setting of 
10 minus the Length (LEN) of the string. 


LEFT$, RIGHT$ and MID$ 


These are used to extract required portions of 
strings. LEFT$ returns a designated Length from the 
left of a string; RIGHT$ does the same from _ the 
rightmost character; and MID$ selects a string of a 
designated Length from the middle of another string. 


Here is a program to show LEFT$, RIGHT$ and MID$ in 
use: 


18 A$="DAKOTA" 
28 PRINT"LEFTS¢CAS, S9="5L 


EFT#( AF, 32 

29 PRINT"RIGHTS¢CA$; 39="5 
FIGHTS¢A$, 3) 

48 PRINT"MIDS¢AF, 2, 39="3 
MID#CAF, 2,3) 


And here is the result of running it: 
LEFT#¢C AF, 39=DAK 
RIGHT$C A$, 39=0TA 
MID$CA¥, 2, 32=AKO 


As you can see, when A$ is "DAKOTA", LEFT$(A$,3) 
prints out the three leftmost characters of the 
string, "DAK", RIGHT$(A$,3) returns the three right- 
most characters of the string, "OTA". MID$(A$,2,3) 
gives three characters from the string, starting at 
the second charaction, "AKO". 


ASC and CHR$ 


Before we move onto our next program, REVERSI (which 
is often known as Othello), in which MID$ is used to 
extract portions of the playing board (stored as a 
series of strings in an array), we need to Look at a 
few other string-handLling words, starting with ASC 
and CHR$, 


The letters, numbers and symbols manipulated by your 
Computer all have 'character codes'. These are known 


as ASCII codes. ASCII stands for American Standard 
Code for Information Exchange, and is the _ most 
widely used encoding system for English Language 
alphanumerics (that is, Letters, numbers and 
symbols). 


There are 128 upper and Lower case Letters, digits 
and some special characters. Although the exact 
character set varies from country to country 
(character number 35, for example, is the hash 
symbol in the US, while it is the pound sign in 
Britain), most of the symbols are standard. 


ASC is used to get the ASCII code number ffrom a 
symbol, and CHR$ is used to turn the code number 
into a symbol. The following program should make it 
clear: 


19 PRINT "A"sASCC"A") 

28 PRINT "B":ASC("B"> 

3@ INPUT "ENTER A LETTER 
"sA$ 

4@ PRINT A$3 ASCCAS) 

5@ C=ASCCAS) 

6@ PRINT Cs"IS THE CODE" 
7@ PRINT "OF "sA$ 

28 PRINT "CHR$(C) IS "3C 
HRE6C) 


When you run it, you'LL see something Like this: 


A 65 
B 66 


ENTER A LETTER? 
T 94 


84 15 THE CODE 
OF T 


CHR$(C> IS T 


We'LL have a Look at a program now which prints out 
the entire character set. The characters whose codes 
are below 33 are control characters which do not 
result in a character being printed out. Therefore, 
these have been Left out of the program, which gets 
the computer to print out all the numbers from 33 to 
159 with their corresponding symbols. 


Here is the program: 


19 REM HK2@ characters 
26 FOR A=335 TO 159 STEP 


3@ LPRINT AS" - "SCHRECA 
a3" "SAt13" - "SCHREC 
At+1? 

4@ NEXT 


And this is the result of running it: 


33 - ! 34 - " 
35 - # 36 - $ 
37 - 4% 338 - & 
39 = -? 4 - ¢ 
41-5) 42 - * 
43 - + 44 - 
45 - - 46 -. 
47 - + 48 - @ 
49° - 1 5@ - 2 
51 - 3 52 - 4 
53 - 5 54°- 6 
55 - 7 36 6- «68 
sf - 9 58 - : 
59 - 3 66 - <¢ 
61 - = 62 - > 
63 - ? 64 - @ 
65 -A 66 - 8B 
67 - C 68 -D 
69 -€E ro - F 
71 - G v - H 
7s - I 74 - I 
ro -K tr al 
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Another simple program, 
will fill the screen (or your printing paper) 
randomly chosen numbers, letters and symbols: 


1@ RANDOMIZE VALCRIGHTS¢ 
TIMES, 23) 

28 LPRINTCHR#CINTCRNDC 1 
#1269+335 

3@ GOTO 26 


The result will be something Like this: 


DK' Bel. "S:US1lHdn?U’s +4 
Es=DsGMIMl “alt Al TUuk*F FR 
KO? 1725 gt 61x? r2+c+b RR 
+! $078? +pemteeisSexoS Di 
kis] b}b->ND-_CRSk SYS! fm7 
2cOr xed. Jy e@Sfti*a2t’ . 9p 
Héps. >ids §hAVed$1l¢ mJ-|H= 
speab-+"8Cbs0r >PKTFMEY Pe 


STRINGS, SPACE$ and INSTR 


Here are three more string functions for 


first one, 
program: 


STRING$, is demonstrated by our 


iB REM STRINGS DEMO 

28 RANDOMIZE VALCRIGHT$ 
CTIME#, 293 

38 AF=STRINGSCINTCRND¢ 1 > 
#9419, INTCRND¢19*12694+33 


} 
44 PRINT AS 
58 GOTO 38 


The program produces this sort of result: 


Matty 
Sc 


44444444 


eran? 
UIJUUUIUY 
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which you may Like to 


run, 
with 


The 
next 


The format of a STRING$ statement is STRING$(n,m) 
where n is the number of characters you want 
printed, and m is the ASC of the character you 
want. In the program, Line 30 sets A$ equal to a 
random number of a randomly chosen character. It is 
very useful when, for example, you wish to set a 
string variable to something Like a line of 
characters you wish to use to break up text output. 


For example, if you wanted to ‘rule off' every so 
often with a solid black Line, you could enter’ the 
following Lines, which produce the result ¥ shown 
below the Listing: 


14 AS=STRINGS¢ 24, 148) 
24 LPRINT A$ 


SPACE$ produces, as you might expect, a string made 
up of the number of spaces indicated by a number 
following the word SPACE$. That is, PRINT SPACE$(n) 
will produce n spaces. This may be of Limited use, 
and difficult in some circumstances to detect, but a 
program Like the following will show it in action: 


19 FOR A=1 TO 16 

20 AS="x"+SPACESCAD+"x" 
38 LPRINT As 

44 NEXT 
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It produces this result: 


AKX KR E 
x 


Strings on the HX20 can be concatenated, or added 
together, as occurs in Line 20 of the program. Conc-— 
atenation is shown more clearly in this program, 
which produces the result shown beneath Line 40: 


189 AS="#" 

28 PRINT "AF IS "SAF 
38 BS= AStAS4"HI"+A$ 
48 PRINT "BS IS "3 Bt 


AS IS # 
BS IS ##HI# 


INSTR Looks for the first appearance of one string 
within another one, and gives a number which is the 
position where the designated string has been found, 
as this program shows: 


18 A$="ABCDEFGH" 

26 INPUT BS 

38 PRINT "BS IS "SBS 

4@ PRINT" INSTRCA$S, BS) IS 
"S THSTRCA, BSD 

34 GOTO 26 
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If you enter any Letter from A to H when prompted to 
do so (Line 20), the computer will return a number 
which is the position of the Letter within A$. If 
you enter a Letter combination which is not within 
A$, you'll also get a return of zero. Here are some 
samples of output: 


Bt IS A 
INSTRCAS,B#) IS 1 


Bf 15 BD 
INSTRCAS,B#) IS 4 


BS IS K 
INSTRC(AS>BS> IS @ 


BS IS ABC 
IHSTRCAS,BS> IS 1 


Bt IS ADS 
INSTRCAS,B$> IS @ 


Bt IS BCE 
IHSTRCAS>BS> IS @ 


BS IS BC 
INSTRCAS,BS> IS 2 
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REVERSI 


Now we get to the REVERSI program, in which MID$ 
features prominently. Not only is it used to extract 
portions of the playing board, but also counts the 
number of pieces each player has at the end of the 
game. 


REVERSI (often called Othello) was invented in the 
1880's, as a variation on Checkers. Players start 
with four pieces on a board which Looks Like this: 


*12345673% 


*12345675% 


The H's are human pieces, while those of the com- 
puter are the C's. You can place a piece on any 
blank position (indicated by a dot) which’ is 
adjacent to an 'enemy' piece, and which has one of 
your own pieces beyond that. Once you place’ your 
piece on the board, every enemy piece in Line 
between the one you've just placed and your other 
piece or pieces is converted into one of your’ own 
pieces. The 'conversions' occur in any direction, 
vertically, horizontally or diagonally. 


I'LL try to make that explanation a Little clearer. 


Starting from the position above, I (as the human) 
placed a piece in the square with co-ordinates 5,6 
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(the two co-ordinates are entered separately, with 
RETURN between them, and the first co-ordinate is 
the number down the side; the second is the number 
across the top). Immediately, the computer piece 
(on 5,5) was converted into one of my pieces, to 
leave the board Looking Like this: 


*12345673% 
Siw ewer es 

faseeecwe ? 
Gancecees 


*12345673* 


Then it was the computer's turn to play. After a 
moment's deliberation, the computer moved into the 
square 6,6 and converted my piece on 5,5 _ Leaving 
the board Looking Like this: 


*12345679% 


Dee eeeane 
Pecuseuee 
Beene e Cie 
5. ..HCH.. 5 
4...CH...4 


a 2 “TF 


Secuccened 
Zevenime eae 


Lesweeeael 
*12345673*% 


My response was to move into 3,4: 


*12345673% 


Deeaenees 


Le wecneael 
#1 2345673% 


Without hesitation, the computer placed its piece on 
3,3: 


*12345678% 


Pocossanel 
6.222.026 
3. ++HCH.. 5 
4,..CH..4 
3.6 CH... 3 
Zeaeesennd 
Lewwceeeel 
#1 23456754 


The computer now had four pieces to my three. As you 
can see, the total number of pieces held by each 
player can vary widely from move to move, unlike 
games Like chess, where — in general —- the strength 
of each player changes only gradually. 


It is interesting to note that Reversi was the first 
game in which a Grand Master was beaten by a 
computer. The victorious program, called The Moore, 
was written by a student at London University who 
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was not even sure how to play the game, nor what 
strategies would prove effective, when he_ began 
writing it. 


As you can see, the game is fairly easy to Learn. 
In fact, one commercial board version of the game 
bears the slogan 'A minute to Learn, a Lifetime to 
master', which seems to just about sum it up. ALL 
you need to know now is how the game ends. Each 
player continues in the way described, until all 64 
squares are filled, or until neither player can 
move. At this point, the player with the most pieces 
on the board is declared the winner. 


If you cannot move, you enter a zero instead of the 
‘position across’ and the computer responds with a 
polite 'OK, please stand by', as it considers its 
next move. 


Let's get back to the game we were considering. 
Several moves after the point at which we Last saw 
it, the board looked Like this. The computer had 
just moved into 1,3: 


#1 2345673% 
a 3 


5... CCCH..5 
4...CH..4 
3... CHC... 3 
vs So 4 
1..C...2.1 
#12345679" 
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Anxious to prove the general superiority of human 
beings over silicon chips, I responded with a dev- 
astating move, placing my piece smugly in 5,2: 


*12345673* 
Bea eceeee 


PNA AUN 
oO 
=x 
s 
» 


*12345678* 


I was now well ahead. A count of pieces at that 
point showed I had 12 pieces to the computer's mere 
five. But Reversi is a game of changing fortunes, 
and it is not a game in which either player can 
assume that material advantage halfway through a 
game suggests anything about the Likelihood of even- 
tual victory. Position can be far more important 
than winning a large number of pieces, and the 
program in this book plays purely on a knowledge of 
the most valuable positions. 
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The computer's response was to move into 4,6: 


*12345675% 
Be vveceeed 
Possccvual 
6. « HHHHH. 6 
sts HHHHH, . 5 
4...CCC..4 
3.. CHC... 3 
Zee Crnaand 
1..C... 
*12345673% 


I placed my piece on 3,6 capturing not 
piece which had been on 3,5 but also that on 4,6: 


This 


small 


move, 


in 


*12345673% 


6. « HHHHH. 6 
Ss HHHHH. . 5 
4...CHH.. 4 
3... CHHH. . 3 
2..Crsaaed 
1. . Cocca l 
#1 2345675% 


which pieces 


in 


directions are captured by a single move, 
change so swiftly in this 


fortunes 


computer replied with a move on 2,6: 


can 
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only the 


different 
shows why 
game. The 


*12345675% 
Be wcsveesd 


6. « HHHHH. 6 
ts HHHHH, . 5 
4...CHH.. 4 
3... CHCH. . 3 
2 .C..0..2 
1. Coens l 
#1 2345673% 


And I took the piece back by moving onto the bottom 
line, at 1,7: 


*12345678%* 
Vececnens e 
6. « HHHHH. 6 
5. HHHHH. . 5 
4...HHH.. 4 
3... CHHH.. 3 
2..C..H.2 
1..C...H1 
#1 2345675" 


Later on in the game, although I continued to enjoy 
a slight numbers advantage, the computer was defin-— 
itely putting the heat on me, as this series of 
exchanges show: 
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*12345679% 
Ba enone LB 
Pevenee CC? 
6. « HHHCHCS 
5. HHHCH. . 5 
4. . HHHCCC4 
3. « HHHHCH3 


2. H.. CHH2 ¥*12345678% 
iccc. . CHH1 Benne CB 
#12345675% fe eeeee Cl? 


6. .« HHHCHCS4 
3. HHHCH. HS 
4. . HHHCHH4 
3. . HHHHCHS 
2..H.. CHH2 
i1CCC.. CHH1 

Beene es CB 

foeeee CC? 

6. » HHHCHCS 

SCCCCCH. HS 


4. . HHHCHH4 
Se cre *12345678% 
iccc..CHH1 = ate ese ae 
#12345678% eee HOC? 


&. « HHHHHC6 
SCCCCCH, HS 
4. . HHHCHH4 
3. » HHHHCH3 
2..H.. CHH2 
icCC. . CHH1 
*12345679% 


However, despite putting up my best efforts, the 
computer finally won, with 38 pieces to my puny 26. 
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One variation of this program was written which 
evaluated the strength of various positions, and 
then compared the number of pieces gained by each 
move of approximately equal worth. The computer then 
made the move which captured it the most pieces. 


It was found, surprising as it may sound, that the 
program actually played worse when selecting the 
move which gave it the most pieces that it did when 
selecting a move which was equally strong in’ terms 


1 2 3. C4 5 6 7 8 
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of position, but game the computer the fewest number 
of pieces. And this method of play was’ slightly 
better than one in which the computer chose at 
random from a number of moves of approximately equal 
strength. 


Although you can play the game using the _ board 
printed up on the screen, it takes a bit of practice 
to do so. Therefore, you may well prefer to mark up 
a checkers board with the appropriate numbers. 
You'll need a number of black and white pieces, 
about 40 of each. You may decide to buy a Reversi or 
Othello board set, which usually has pieces with a 
different color on each side, and to number’ the 
board in accordance with this one here. It is worth 
going to the trouble of making such a board, as_ it 
will also be needed to play Checkers against’ the 
program given Later in the book. 


Having seen what the program can do, it is time to 
enter it into your computer, and once you've played 
a game or two with it, return to the book for a dis- 
cussion on how it works. 


18 REM REVERSI (Othello) 
28 DEFINT A-ZECLS 

34 GOSUB488 

44 GOTO 208 

S@ BS="H"8C$="C"tH=4 

68 K=1 

PA ASTCKI+1 B=TCK+1 +1 
BQ IF MIDSCAFCA). Bs 19¢3" 
" THEN 186 


Ga 
n 
Q 
a] 
oe) 
> 
! 
_ 
+ 
oO 
pars 
1 
2 
70 
wm 
W 
{ 
-_ 
4 
pa) 
= 


E=@:F=A:G= 

IF MID#CASCF+C>.G+D, 
22 >BS THEN 126 
@ E=1:F=F+C:6=6+0:G60TO 


Cs 
mi 
= 


ie 
@ 
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126 IF MID#¢cAscF+C9.G6+D, 
{o¢>ts OR E=8 THEN 166 
13@ MIDSCAscF>,G, 19=C$ 
144 IF A=F AHO B=G THEN 


156 F=F-C:G=6-Db:H=1!G0TO 
1368 

168 NEXT! NEXT 

{7a IF B#="C" OR H=1 THE 

H 208 

194 K=K+2:IF E<i2l THEM 

7B 

134 PRINTSFRINT"IT cannot 
mowe" SFL=1iFoRZ=1 T0588: 

MEST 

286 CLS:IF BE="H" AND A> 

@ AMO FL=@ THEN PRINT "I 
mowed in "$8-13B-1iFOoR2 

= 170482 HEXT 

ess" u 

SOUMD RNO< 1) #58, 2 

34 FORA=18 TO 2 STEP-1 

3 PRINTTABC S23 A$CA2 

W FOR D=1TOS@@: NEST? NE 


A PRIHTTABCS 35 A8¢ 193 
B IF 2$="R" THEM RETUR 


-.j iyi 4 
bn] 


G@ IF B$="C" THEH 58 
9 PRINTIPRIHT"Your mov 


Ba PRIHT"Enter ’R* to r 


oPy to" 

224 PRINT"erinter,’*M’ ta 
mote" 

S30 FRINT "*M? then @ t 
a Pass" 

248 GOSUB féerIF 2#="R" 

OR Z2¢="r" THEM GOSUB 224 
?B0TO298 

Z5@ IHFUT "Side mumber "3 
Arg=At+iiIF ava OF 429 TH 
EH 298 

268 IF A=1 AHD K>128 THE 
NM 4564 


278 IF A=1 THEN PRIWNT:PR 
THTIPRINTIPRIHT "OK, Ple 
ase stand by" :GOTO 5a 
786 INPUT "Now across to 
F'"SBsB=B+1:IF Bia OR B29 
THEN 388 
238 BS="C"SC#="H" 2 GOTII8 
480 DIM A$¢163,7T¢1 285 
410 K=8:6¢="H"iFL=a 
426 FOR Z=1TO1S: READ OF: 
AFC 25=0F: NERT 
438 FOR 2=1TO128:READ T¢ 
23° HEAT 
449 RETURN 
450 PRINT: PRINT:FRINT"Th 
& game is over" 
468 C=8:H=6 
476 FOR A=e TO SIFOR B=2 
To 3 
456 IF MIb#¢Aseas,B,12=" 
C" THEM C=C+1 
$9@ IF MIDt¢As¢A>, B.19=" 
H" THEN H=H+1i 
S66 HEXT?HEXT 
51a IF H>C THEM PRINT "¥ 
ou wint" 
52a IF H¢C THEM FRIWT "I 
win" 
S3@ IF H=C THEN PRINT "I 
t's = draw!" 
S4@ FOR T=1 TO 1866: HExT 
S58 PRIHT "Io scored "sC 
S66 FOR T=1 TO 1@a6: NEXT 
TS PRIHT “You scored "3 


S86 FOR T=1 TO 166@!HEXT 
?PRINT! PRINT 
38 PRIHT "Press 74" for 


e168 PRINT "7H" te and's 
B26 AS= INKEV#! IF Ate one 
AND AF. Da" AMD ACO" HN" 
AMD A ant THEN 620 
638 IF Ago 2"H" AND Ag< >" 
rm" THEN RUN 


46 PRIHTIPRIWTSPRIWT "oO 
thanks for 
SS FRINT TABC433 "elagin 


i", ni 
seu nae rs Seevnnsnse 3 


Be DATA ae CH... 4"2 "5 
~HC...5" 


au Wes mu 
. eee tos een nne =] 


18, 3; 3:6> S 
r rig DATA 3; 


an cy 


“yo 


SS 


AND Z 
AND 
AND 3 


=-Ji Oboe fe dec. 20 Ba 
am 
Lo | 
7m 


a ae 


BHD S 
m" SHE 2 
c" THEN 76a 
TS@ IF £$="C" OR Z2#="c" 
THEH GOSUB S18 

Poe PRINT 

S08 RETURH 

FOF J=16 TO 1 STEF 


S20 LPRINT TABCH3agC7) 
3 HET 
FOR J=1 TO 4:LPRINT: 


RE TUR 
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Line 20 ensures that all variables used in the 
program will be integer variables, to maximise speed 
of execution. The screen is the cleared. Action is 
sent by Line 30 to the subroutine beginning at Line 
400, the initialisation routine. Back after init- 
jalising, the program jumps to Line 200 where the 
board is printed out. 


Line 50 sets B$ to "H" and C$ to "C" (they are the 
other way around when it is the human's turn). Poss-— 
ible moves are held in the T array, and elements of 
the T array are selected by the variable K. That is, 
when K equals one, move T(1) will be considered. 


Line 70 selects the first position to be considered, 
where T(K) + 1 equals the vertical co-ordinate, and 
T(K + 1) + 1 equals the horizontal co-ordinate. If 
Line 80 (using MID$ as discussed before we introd- 
uced Reversi) finds that the position indicated does 
not contain a dot, indicating that the position is 
occupied, action moves to Line 180, where K is 
incremented by two. If K is Less than 121 (that is, 
all possible moves have not been discovered) the 
program goes back to 70 to consider the next move. 


The routine from Line 90 to 160 checks to see which 
pieces can be converted and makes the changes. Line 
170 jumps over the routine for incrementing K, and 
Line 190 (which points out "I cannot move") to 200, 
where the screen is cleared and the computer prints 
out the co-ordinates of its move. 


The next section of the program prints out’ the 
board. There is a beep to Let you know that’ the 
board will be printed (Line 220) and then a loop is 
used to print out the elements of the A$ array. Line 
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250 slows the printing down, so you have a chance to 
see it. Line 270 returns action to the player move 
section if the board has just been reprinted at the 
request of the player, and Line 280 sends action 
back to Line 50 if C$ equals "C", which tells the 
computer the player's move is over. 


The section from 290 to 330 is the menu of the 
possibilities open to the player after the board has 
been printed following a move by the computer: 


Enter 'R' to reprint board, 
'C' to copy to printer, 
'M' to move, 
'M' then 0, to pass 


Line 340 then turns the computer's attention to the 
subroutine beginning at Line 760, which reads’ the 
keyboard to determine what the player wants to do. 
The player's vertical co-ordinate is accepted in 
line 350, and if the move was a zero (that is, A is 
one, as the one is added to the value entered by the 
human in Line 350), Line 360 checks to see if the 
computer has also passed (which will be the case if 
K is greater than 120) and if so, goes to Line 450 
where the game ends, and the pieces on the board are 
counted to see who has won. 


Line 370 is actioned if the human has’ passed, and 
the computer has not. "OK, please stand by" appears 
on the screen and the computer starts Looking for a 
new move. If the human has not passed with his or 
her first-entered number, the second (that is, hori- 
zontal) co-ordinate is accepted, the values of B$ 
and C$ are swapped, and action moves to the _ sub- 
routine from Line 90, which actually converts’ the 
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pieces. The same routine, you'Ll recall, was also 
used after the computer had moved. 


We now get to the initialisation routine, to which 
we were sent by Line 30. Two arrays are dimensioned 
in Line 400 — the first one (A$) to hold the rows of 
the board and the second one ([(T) to hold the 
sequence of positions which are checked by the com- 
puter when it is Looking for a move. Variables are 
initialised in Line 410, then Line 420 fills the A$ 
array, and Line 430 fills the K array, before the 
RETURN sends attention back to near the beginning of 
the program. 


"The game is over" declares the print statement in 
Line 450, where indeed the 'end of game' routine 
begins. Variables C (to count the computer pieces) 
and H (for the human's) are set to zero in Line 460, 
and the A and B loops (470 to 500) count how many 
pieces each player has on the board. 


The result of the count is printed, along with the 
identity of the victor (lines 520 to 570). After a 
pause (Line 580) the player is offered the option of 
starting a new game. If a new game is wanted, Line 
630 gets it underway. If not, "OK, thanks’ for 
playing" (lines 640 and 650) appears and the program 
terminates (Line 660). 


Lines 670 to 690 contain the DATA which is read into 
the A$ array (DATA, with its associated words READ 
and RESTORE, is on the agenda for discussion 
shortly.) The DATA for the T array, which determines 
the order in which squares are checked by _ the 
computer, is held in Lines 700 to 750. (We'll get 
back to those in a moment.) 
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The final section of the program is a routine for 
reading the player's wishes after the board has been 
displayed, and (from line 810) for printing out the 
board is a hard copy has been requested. 


You'll find that playing against the computer is a 
good way of improving your own skills at Reversi, 
and studying (perhaps even copying) the computer's 
strategy should help you advance fairly quickly to a 
good standard of play. 


If you Look at Lines 700 to 750, you'Ll see the co- 
ordinates the computer uses when deciding where to 
move. This is the only strategy the computer has, a 
simple knowledge of the relative value of the 
positions on the board. However, armed with just 
this knowledge, the computer puts up a_ formidable 
game. 


Here's a List of the positions, printed out by the 
computer, which shows the order in which it searches 
the squares. This order is not the only one it could 
have used, as _ several squares may have the same 
value at one time. You may wish to change the order 
around a bit in the DATA statements, and see what 
effect this has on the computer's game. 
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CHAPTER TEN - NOUGHTS AND CROSSES, AND AN 
INTRODUCTION TO STRUCTURED 
PROGRAMMING 


Before we continue on with our step by step 
examination of the commands and functions available 
on your computer, Let's take a Look at a well-known 
game -— NOUGHTS AND CROSSES - and discover’ how 
writing this program can serve as an introduction to 
the concept of ‘structured programming'. 


There are many ways to write a program to play 
Noughts and Crosses, the game in which the pLayers 
each try to be the first get three of their symbol 
(either a nought or a cross) in a straight Line on a 
three by three grid. 


Most computer versions of this program suffer from 
one defect — they play too well, so it is impossible 
to beat them. The best you can do is draw, and once 
you've played a few games, you know exactly what the 
computer is going to do in a particular circum- 
stance. These programs quickly become boring. 


One way some programmers aim to give their programs 
fallibility is to program in a random 'mistake' from 
time to time, so the computer makes a stupid move 
(such as failing to complete a sequence when it is 
possible to do so) to allow the human to win. Again, 
such programs are unsatisfactory to play, and 
interest quickly wanes. 


By contrast, as you've probably guessed by now, this 
version of the game allows you to win now and then 
(but not very often) and it is difficult to predict 
what the computer will do from certain positions, so 


that its play does not appear repetitive (apart from 
the basic repetitive nature of the game). You'll 
find the computer is a good opponent, rarely 
allowing you to get the upper hand, but surrendering 
gracefully if you do. 


After each game, the computer will print up the name 
of the winner, or that the game is a draw, play a 
Little sequence of notes, then after a brief pause 
offer you a new game. As you'LL see, there are 
several dummy loops to introduce slight pauses’ into 
the program, If you don't want these (and the game 
is very fast, even with them in) by all means delete 
them. If you find the sound routines annoying, by 
all means delete these as well. 


Enter the program and play a few games with it, then 
get out of the program by using BREAK. You can then 
return to this book for a discussion on how the 
program works. This discussion will lead into an 
outline of the main ideas of structured programming, 
and an indication of how these ideas can help you 
write better programs. 


The computer chooses who will go first, taking the 
first move about half the time. You move by touching 
the number which corresponds to the position where 
you want to move. The player input uses an  INKEY$ 
routine, so there is no need to press RETURN after 
entering your move. 


The positions, and their corresponding numbers, are: 


NB? 
oon 
wa) w& 


Before we look at the Listing, here are a couple of 
games. In the first game, the player moves first, 
with the computer going first in the second game. 
The computer won one game and drew the other. (The 
program used to print out the results is the same as 
the one given for printing on the screen, except 
that the PRINTs are changed to LPRINTs, a_ few 
LPRINTS are added to space things out, and the 
following Line - 715 - is added to improve the 
appearance of the printout: 


715 LPRINT:LPRINT:LPRINT 


3 . 

6 » KX. 
3 am he! 
Please stand by 


1: (2343 Pn eee 

45 6 5° OR. 

r 8 93 Qr-.o 
Your move 

1 2 3 oe wl A 

45 6 » Ko. 

7, 8 93 O . ® 
Please stand by 


2 aX 


aX o 


o .o 


M0 


NIN 


marek 


ur move 


fe) 


a 


ee ee ee ee 


ce ee ee ee ee 


2OX 


Moon 


ur Move 


2 
5 
8 
Yo 


ath 


»Ox 


oxx 


oxo 


Mon 


Your move 


2 
5 
8 
ce) 


Sa on 


xox 


Oxx 


oxo 


MO 


Please stand by 


2 
5 
8 
1 


ath 
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Here's the game the computer wins: 


I?ll move first 


3 . 
6 » O., 
9 x 


m) fae 
— Oh 


Please stand by 


1 2 3 a 23°C 
45 6 & Os 
r 8 3 Fae, cae 
Your move 
L243 » « QO 
465 6 a Oe | 
rr 8 3 x 
Please stand by 
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~) fe 
Oo MUN 


WOO 


I?m the winner! 


And this is the Listing, to allow you to 
your computer to Noughts and Crosses: 


1@ REM NOUGHTS & CROSSES 
28 DIM ACID 

3@ RANDOMIZE CUALCRIGHTS 
CTIME$: 233) 

49 CLS:FOR E=1 TO S@@:NE 
ST 

5@ IF RNDC1)>.5 THEN PRI 
NT "I’?1l move first"!FOR 
E=1 TQ 25:SOUND E,@.5:N 

EXT: GOTO 96 

64 GOSUB 7@a 

78 GOSUB 4236 

88 GOSUB 628 

96 GOSUB 786 

16@ GOSUB 436 

11@ IF AcS+=6 THEN ACS>= 
1:GOTO 68 


141 


challenge 


126 REM TO COMPLETE ROW 
BLOCK 

13@ PRINT:PRINT " Pleas 
é stand bys 

146 D=1 

156 B=1 

166 IF B=1 THEN X=1:Y=2: 
2=3 

178 IF B=2 THEN #=1:¥=4: 
136 IF B=3 THEN X=1:Y=5: 
196 IF B=4 THEN X=3:2=7 
208 C=1 

216 IF ACX>=D AND ACYI=D 
AND ACZ>=@ THEN ACZ>=1: 
GOTO 6&8 

220 IF ACK>=B AND ACYD=6 
AND ACZ>=—0 THEN ACYD=1: 

GOTO 66 

230 IF ACK>=6 AND ACYD=D 
AND A&Z>=D THEN ACXD=1: 
GOTO 66 

240 IF B=1 THEN X=X+3: Y= 

Y+3s Z=2+3 

250 IF B=2 THEN X=x+1: = 

“eds 2=2+ 1 

260 IF C<3 THEN C=C+1:G0 

TO 210 

27@ IF B<4 THEN B=B+1:G60 

TO 178 

286 IF B<2 THEN D=D+1:G60 
TO 15a 

296 REM MOWE AT RAHDOM 
266 B=1 

Z1@ C=INTCRNDC1>*9>+1 
320 IF ACC>=8 THEN ACCI= 
1:GOTO 68 


256 B=8 

366 B=Bt+1 

37@ IF ACBs=6 THEN ACB= 
1:GOTO 6a 

386 IF B¢9 THEN 368 
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336 GOSUB 7aa 

406 PRINT 

416 PRINT "It’s & draw"; 
420 GOTO 596 

430 REM WIN CHECK 

449 FOR B=1 TO 4 

456 IF B=1 THEN K=1:i=2: 


460 IF B=2 THEN x=1:Y=4: 
47°@ IF B=3 THEN X=1:¥=5: 


486 IF B=4 THEN X=2:2=7 

496 FOR C=1 TO 3 

~9@ IF ACK}=ACY) THEN IF 
ACYo=AC2Z> THEN IF ACKDK< 
78 THEM 56g 

S10 IF B=i THEN #=xK+3: Y= 

W432 2=2+3 

526 IF B=2 THEN X=X+1: Y= 

Yeti g=2+1 

534 MEXT C 

a4 HEXT B 

554 RETURN 

S66 PRINT 

S76 IF Ack»=1 THEN PRIWT 
"d?m": ELSE PRINT "You? 

res 


530 PRINT " the winner!" 


230 FOR X=1 TO 25: 50UND 
Hy @. St HEXT 

£48 FOR X=56 TO 35 STEP 
-1:SOQUND X, 8. 32 NEXT 

618 RUN 


6246 REM PLAYER MOVE 

630 PRINTIPRINT “Your 
moe: s 

646 AS=INKEYS 

656 IF Agé"1" OR AS>"9" 
THEN 648 

668 B=UALCAF> 

670 IF ACBs<>@ THEN 640 
686 ACBI=2 

6969 RETURN 
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788 REM PRINT OUT 

vig CLS 

P26 PRINT "1 2 3 "3 

r36 FOR B=i TO 9 

746 IF ACB9=@ THEN PRINT 
", "siSOUND 16,4, 5:FOR 
E=1 TO 26: NEXT 

P38 IF ACB>=1 THEN PRINT 
"0 "38SOUND 2@,1:FO0R E 

=1 TO 18°NEXT 

76@ IF ACBI=2 THEN PRIWT 
"® "PISOUNG 3@,2:FOR E 

=1 70 . 382 HEAT 

Pra IF B=3 THEN PRINT:FR 
INT "4 5 6 "3 

ro@ IF B=6 THEN | PRINT: PR 
IHT "7 8 9 

r38 NEXT B 

898 RETURN 


STRUCTURED PROGRAMMING 


It's time now to have a Look at how the program 
works, and introduce the idea of structured 
programming. 


Line 20 dimensions the A array, which holds the 
board, and Line 30 seeds the random number generator 
with a value derived from the time. AS we _ saw 
earlier, this is a good way to ensure random 
responses are as close as possible to being truly 
random in a program where you need numbers produced 
over and over again within a very Limited range. 


The screen is cleared by Line 40, there is a_ short 
delay (with the dummy E loop) and then Line 50 
determines which player will have the first move. If 
the computer decides it will have first move (that 
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is, the random number generated in Line 50 is 
greater than 0.5) then action goes to Line 90. 


The most important part of the program is in_ the 
next few Lines. These Lines indicate a very import— 
ant programming approach, one which is often given 
the title ‘structured programming’. Structured 
programming calls for a 'top down' approach, in 
which the general intent of parts of the program is 
determined long before the specific code which will 
carry out specific actions is written. 


The most important section of this program is_ Lines 
60 to 110. These Lines are accessed time and time 
again during the program. The subroutine calls were 
written before the actual subroutines they called 
were written. 


They do the following: 


60 - calls the subroutine to print out the 
board 

70 - calls the subroutine which checks’ to 
see if any player has won 

80 - calls the subroutine to accept’ the 
player move 

90 - calls printout subroutine 


100 - calls the 'win check' subroutine 

110 - checks to see if the center position 
is empty and if so, the computer 
moves to that position, then returns 
to Line 60 where the loop’ begins 
again 

120 - and following: this is the computer's 
move routine; once a move is’ made, 
action returns to Line 60 to cycle 
through once again 
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A moment's thought will show that, with an approach 
such as this when important subroutines are called 
repeatedly from a loop, you gain at Least two 
advantages: 


1 - If you're not sure how to write a 
particular section of the program — such as the ‘win 
check' routine - you can just put RETURN at the 
point in the program where the routine will 
eventually go, and get the rest of the program 
properly debugged before worrying about the routine. 
That is, you can check sections of the program, even 
when other sections are incompLete. 


2 - You'll find it much easier to debug a 
program which is written in 'sections' Like this, as 
the bug will probably only be within one section, 
and will subsequently be relatively easy to track 
down. 


I urge you to use an approach Like this whenever you 
can. We'Ll be Looking at structured programming in 
greater detail in chapter 17, starting on page 313. 


The routine from Line 120 checks two things, both of 
which vital to winning Noughts and Crosses: whether 
there are two pieces in a row which can be completed 
to win, and whose pieces they are. If the computer 
finds that it has two pieces in Line, it immediately 
places the third, then goes to the ‘win check 
routine' which starts at Line 700, via Line 60. If 
it finds the two pieces are human ones, it moves to 
block. In either case, the computer moves into the 
vacant spot at the end of a row of three. The 'win 
check routine' then determines if the move was a 
winning one, and if not, knows it was a_ blocking 
move. 
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This routine continues until Line 290 where, as the 
REM statement indicates, a move is chosen at random. 
The second from Lines 300 to 340 chooses up to 20 
moves at random. 


If a possible move is not found in those 20 tries, 
then each square is checked in turn. If all the 
squares are found to be filled, the computer knows 
the game is a draw (because a win would have been 
detected earlier by the 'win check routine') and 
prints out its finding (Line 420), then goes to 590, 
where a small tune is played before a new game 
begins. 


The 'win check routine' starts at line 430. Firstly 
it checks possible wins horizontally, then vertical— 
ly and finally diagonally. The routine exits at 
Line 500 if a win is found. Normally, jumping out 
of a loop Like this is not a good idea (in fact, it 
is considered very bad programming practice) but as 
it will only occur at the very end of a game, it is 
- I believe — acceptable at this point. 


Generally, however, you definitely now jump out of 
loops in midstream. One alternative to exiting from 
a loop prematurely is demonstrated in the routine 
starting at Line 120 where a series of... 


IF X < 4 THEN X = X + 1: GOTO... 


...is used instead (see, for example, Line 270). 
If a win is not found, the RETURN sends action back 
to the master control loop. If, however, a win has 
been found, the Lines from 560 to 610 print out the 
identity of the winner, plays a small sequence of 
notes, then starts a new game. 


147 


The player move routine starts at Line 620. After 
printing up "Your move", the computer waits for a 
key to be pressed, using the INKEY$ routine in Lines 
640 and 650 to reject invalid moves. Once a number 
key between 1 and 9 is detected, the VAL equivalent 
of this key is assigned to variable B in Line 660. 
As you'll recall from the earlier part of the book, 
when VAL is discussed, VAL turns a string into its 
numerical equivalent. 


Line 670 checks to see if the chosen square is 
available (that is, that the designated eleement of 
the A array contains a zero). If it finds that is 
not, then action is returned to Line 640 to _ get 
another move from the player. Once a valid move has 
been chosen, the relevant element of the A array is 
given the value two (a computer element has a_ value 
of one, an empty element is zero), and the RETURN 
sends attention back to the Line following the one 
which sent the computer to the ‘accept player move' 
subroutine. 


The final section of the program, from line 700, 
prints out the board after each move. You may well 
want to modify this. As it stands, the computer is 
the O's, the human is the X's. Change the contents 
of the print statements in Lines 750 and 760 if you 
wish to alter these. If you don't Like the period 
for an empty position, change the contents of the 
quote marks in Line 740 into whatever you desire. 


Once you've played with this program a few times, 
you may be interested in writing a Noughts and 
Crosses program yourself, completely from scratch. 
Try not to follow the method I used (except for the 
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ideas of ‘structured programming), but analyse the 
game from first principles, and try and create an 
original series of routines to play the game. It is 
not as difficult as you might think. 


INKEY$ 


INKEY$ is a very useful command in many programs. It 
tells the computer to read the keyboard, and _ then 
return the key being pressed (or an empty string, 
"", if no key is being pressed) without you needing 
to press RETURN. This is very useful in programs 
which have menu selection, where you must, for 
example, enter a number or Letter to choose from a 
number of menu items. If you look back to _ the 
Noughts and Crosses program Listing, you'll see in 
lines 640 to 660 an INKEY$ routine for getting the 
number of the square into which you want to move. 


It is similar to this one (although a _ Little 
shorter): 


18 AS=INKEYS 

26 IF ASK<"1" OR AS>"9" T 
HEN 18 

30 B=WVALCAS) 

40 PRINT "B IS"SB 

38 PRINT 

68 GOTO 18 


When you run this, you'Ll see the computer will 
ignore any keys you touch except the unshifted 
number ones, and each time you press a key, it will 
print up a message Like this: 
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Is 1 
Is 
Is 
Is 
Is 
Is 
Is 
Is 


nn woowoowoo nm 
wn nm wm oO DO WN UW 


You'll also find INKEY$ in use in many other 
Programs in this book, such as the MINICALC one in 
the business section. It is a good idea to use 
INKEY$ when you can, as this is generally more 
effective than demanding that the user press RETURN 
after each key press. 


WORD PROCESSOR 


A very primitive word processor can be created 
within a few Lines using INKEY$. This one is 
designed to work with upper case letters only. Use 
the hyphen key for a space, and the 1 key as a 
period. This program is limited, but it does allow 
you to use the HX20 as a sort of typewriter, dumping 
directly to the printer. You'll also see 
concatenation (addition) of strings, as discussed 
earlier in the book. 


The program is quite fun to operate. If you want the 
computer to print out a Line which is not complete 
(as it is, the computer waits till a Line is Longer 
than 20 characters before it dumps it to the 
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printer) just press the 2 key. You'll find the 
program prints a dash on the screen if you want a 
space, so that you can see you've indicated a space, 
but does not print the hyphen onto the printing 
paper. 


1@ REM Word Processor 

26 Ag="" 

3@ PRINT 

4@ BS=INKEYS 

56 IF BS="1" THEN AS=AF+ 
ny "“sPRINT bah ig 

66 IF BS="2" THEN LPRINT 


AF: GOTO 26 

7@ IF BS="-" THEN AS=AS+ 
u "SPRINT was 
80 IF BS<"A" OR BS>"2" T 
HEN 48 


98 PRINT BS; 

188 AS=AS+BS 

11@ IF LENCA$)>2@ THEN L 
PRINT AS:GOTO 26 

126 GOTO 46 


THIS IS A DEMO TO 
SHOW THE WORD 
PROCESSOR PROGRAM 
WORKING. YOULL 

FIND THAT ALTHOUGH 
IT IS A TRIFLE 
LIMITED IT CAN STILL 
BE FUN TO OPERATE. 


ADDING MACHINE/CASH REGISTER 
INKEY$ can turn your HX20 into a simple-to-operate 


adding machine. You simply enter you number, digit 
by digit, including decimal points if you Like. When 
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a particular number is finished and you're ready to 
enter the next one, press the "N" key (for 'next') 
and the display will scroll up, making way for the 
next number. When you want a total, press "T" and 
the numbers will automatically be added. 


18 REM Addins machine 
26 DIM C¢C3@> 

36 BS="" 

4@ AS=INKEYS 

56 IF Ag="T" THEN TTL=VA 


L<B$>: GOTO166 

68 IF A$="N" THEN GOTO12 
i] 

78 IF A$="_" THEN BS=B$+ 
u "SPRINT e wg 

80 IF As<"B" OR AS>"9" T 
HEN 46 


98 PRINT A$; 

108 BS=BS+A$ 

11@ GOTO 48 

126 Q=0+1 

130 CCQ>=UAL CBS) 
144 PRINT 

158 GOTO 34 

164 FOR D=1 TO 38 
17@ TTL=TTL+C¢D) 
186 NEXT D 

196 PRINT: PRINT 
208 PRINT "THE TOTAL" 
216 PRINT "IS"sTTL 


If you'd prefer the computer to print out’ the 
numbers as you enter them onto the printer, as well 
as onto the screen, to make the computer more 
closely emulate an adding machine, use the following 
version of the program, which automatically ranges 
the output around the decimal place, for neat 
output: 
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1@ REM Adding machine 
26 REM with Print-out 

38 DIM CC3@> 

4@ Bg="" 

58 AS=INKEY$ 

66 IF AS="T" THEN TTL=UA 


L¢B#>:GOT0196 

7@ IF AS="N" THEN GOTO13 
8 

86 IF AS="_." THEN BS=B$+ 
es ue =PRINT bas " H 

90 IF AS<"@" OR AS?"9" T 
HEN 5@ 


198 PRINT A$; 

116 BS=BS+A$ 

126 GOTO Sa 

13@ G=0+1 

14@ 2=LENCSTRECINTCUALCB 
$3999) 

158 LPRINT TABC1@-2):B¢ 
16@ CCQd=VALCBS$) 

178 PRINT 

186 GOTO 46 

19@ FOR D=1 TO 36 

286 TTL=TTL+C¢D) 

218 NEXT BD 

228 PRINT: PRINT 

238 LPRINT 

246 LPRINT "THE TOTAL" 
250 PRINT "THE TOTAL" 
268 LPRINT "IS"s TTL 

27@ PRINT "IS"3 TTL 


365. 76 
23. 45 

1686 
23.7 


THE TOTAL 
IS 1412. 91 


In its present form, the program can only add 30 
numbers together. If you feel this is not enough, 
then change the 30 in Lines 30 and 190 to, say, 100 
or whatever number you feel will cover your needs. 
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CHAPTER ELEVEN — DATA, ARRAYS AND MORE 
DECISIONS 


READ/DATA and RESTORE 


This is an extremely useful trio of words which are 
usually found together within a program. Basically, 
the READ command is used to access’ information 
stored in a DATA statement, and RESTORE is used to 
indicate where — in a series of DATA statements — we 
wish to start accessing the information. 


This program should make it clear: 


1@ FOR A=1 TO 18 

2@ READ B 

3@ PRINT B 

48 MEXT A 

Sa RESTORE 

6@ SOUND 1,1 

78 FOR C=1 TO 4@B8:NEXT C 
34 FOR A=1 TO 16 

94 READ B 

184 PRINT B 

118 NEXT A 

12@ DATA 12, 76:85,333,23 
> 43:65; 58,2853, 1 


When you run this, you'Ll see the numbers in’ the 
DATA statement, Line 120, printed out one by one as 
the computer goes through the first A _ loop, then 
again as it goes through the second one. When you 
run a program, it automatically RESTOREs to _ the 
first DATA statement in the program. When the 
computer comes across a RESTORE statement which is 


not followed by a number, it RESTOREs to the first 
DATA statement in the program. 


Here is a program to show RESTORE in action 
directly: 


1a@ FOR A=1 TO 16 

2@ READ B 

34 PRINT B 

4@ IF A=5 THEN SOUND 1.1 
tRESTORE 7@ 

S@ FOR C=1 TO S@:NEXT C, 


AH 

68 DATA 1.2,3,4,5,627:23 
7@ DATA 11212213,14,15,1 
6,17:18 


When you run this, you'll see it print out 1, 2, 3, 
4, 5, 11, 12, 14, 15, 16. The RESTORE moved the data 
pointer to the start of Line 70, and the computer 
Started reading data from this point. 


Now, delete Lines 40 and 70, so your program Looks 
like this: 

16 FOR A=1i TO 18 

28 READ B 


38 PRINT B 
58 FOR C=1 TO S@:NEAT C; 


H 
68 DATA 1:2°3;54,5,6,7.¢ 


When you run it, you'll get an error message, OD 
Error In 20, caused by you trying to read more items 
of data than were provided in the program. It 
doesn't matter how many DATA items you have, so Long 
as there are at least as many as the number to be 
read. 


There is another thing about READ/DATA which you may 
find a trifle surprising. It does not matter where 
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in the program the DATA is scattered. The program 
will find the DATA items, and READ them, as_ this 
program shows: 

18 DATA 1.2 

2B FOR A=1 TO ll 

36 DATA 3:4,5 

46 READ B 

58 DATA 6:7 

6&0 PRINT B 

7B DATA 8,9,18 

8@ NEXT A 

38 DATA 11 


So far in this discussion we've been reading numeric 
items of data, matching up variables with numbers 
within a DATA statement. Strings can be used, as the 
next program shows: 


1@ FOR A =1 TO 5 

28 READ H$ 

ZO PRINT H¢ 

48 NEXT 

Sa DATA HI. THERE, MR-EPSO 
MH» COMPUTER 


Notice that you do not need quote marks around the 
strings in the DATA statement in this example. If, 
however, you wanted to include a comma after the 
word THERE, and a period after the MR, you'd have to 
make the DATA statement as follows: 


54 DATA HI."THERE, "> "MR, 
", EPSOM: COMPUTER 


Try this, to see it in action. You'll need quote 
marks if the DATA statement contains leading or 
trailing spaces, or punctuation marks, which you 
wish to preserve. 


Numeric and string information can be mixed within a 
program, so _ long as you ensure that the computer 
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comes to a number when it expects and needs one, and 
comes to a_ string when it needs one. The next 
program, for example, manages to provide the right 
kind of information at the right time: 


if FOR A=1 TO 5 

28 READ H$,B 

38 PRINT H¢#,B 

48 HEXT 

34 DATA WORD: 1,THIS;3,S0 
NG: °??> HEAWY: 43,G0LLY.5 


The computer can read more than one item of DATA at 
a time, as the program shows. You'LL see READ, DATA 
and RESTORE in action in many programs in this book. 
The CHESS program is one which depends upon them 
heavily. 


DIM 


The DIM statement is used when you wish to set up an 
array which will hold a List of numbers, and _ which 
can be accessed by referring to the element of the 
array. 


Here's an example which should make it clear. For an 
array to hold numbers, we use a Statement of the 
form DIM A(20) where we want the A array to hold 21 
elements. The number of elements in an array is 
alwayS one more than the number specified in 
paretheses in the DIM statement. Each element of an 
array is filled with a zero when you first DIMension 
the array. The next program DIMensions an array in 
line 10 and then, using READ statements, will fill 
each element of the array with a number. The final 
section of the program will print out each element, 
in a way which should make it clear what is 


happening. Notice that the first element of the 
array is A(O), the second is A(1)...and so on up to 
A(20). 


14 DIM AC2a) 

26 FOR B=@ TO 26 

28 ACBO=INTCRNDC12*10)4+1 
48 HEXT B 

s@ FOR B=@ TO 20 

64 PRINT "AC"SB3"> 1S" 
ACB 

7@ NEXT B 


Here's the result of running it: 


AC @> 15 6 
Ac 1 > 1S 3 
Ae 23 18 6 
AC 39 18 7 
AC 4) 15 2 
AL 5) 18 9 
Ac 6) IS 1 
Ac 7? >) IS 18 
AC 8) 18 4 
Heo > IS 6 
AC 169 18 5 
AC 11 9 IS 1 
At 12 3 1S 6 
Af 13 > 15 6 
Ac 14 > 1S 4 
AC 15 3 18 5 
AC 16 3 IS 2 
Ac 17 9 IS 18 
AC 18 9 I$ 2 
Ac 13 9 IS 3 
Ac 24 9 1S 3 


An array is very useful if you wish to choose from a 
number of possibilities at random, as this program 
shows: 
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14 DIM ACS) 

26 FOR B=6 TO 5 

38 READ ACB) 

4@ NEXT 

5@ PRINT ACINTCRND¢19%63 
6@ FOR C=1 TO 15@: NEXT 
78 GOTO 56 

88 DATA 999, 2343,111111, 
2:08:43 


The arrays we have looked at so far have been one 
dimensional. A multi-dimensional array is set by 
following the letter name of the array with more 
than one subscript, as this program shows: 


18 DIM AC4, 42 

2@ FOR B=6 TO 4 

38 FOR C=8@ TO 4 

44 ACB, C=INTCRNDC19*9) 
S@ NEXT C-B 

6@ FOR B=6 TO 4 

7a FOR C=8 TO 4 

83 PRINT BsCs">"sACB.C3 
38 NEXT C.B 


Note that if you need eleven, or Less, elements of 
an array, you do not need to dimension the array, as 
the computer will provide for eleven elements, as 
soon as one of them is called within a_ program. 
Here's an example: 


19 AC3d=999 

24 PRINT AC3> 

38 PRINT AC?) 

49 ACBI=AC3IFACSD 
S@ PRINT ACB? 
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The computer also provides for string arrays, with 
a dollar sign in the dimension statement, and in 
subsequent references to the array. The presence of 
the dollar sign indicates that it is a string, and 
not a numeric, array. In the next program, a string 
array is set up in Line 10, filled with the _ Loop 
from lines 20 to 40, then elements are _ selected 
randomly by Line 50: 


18 DIM AS$<S) 

26 FOR B=@ TO 5 

38 READ ASCB> 

44 NEXT 

S@ PRINT ASCINTCRNDC1>*6 


69 FOR C=1 TO 156: NEXT 
7a GOTO 5a 

24 DATA WORD. TEST, STAND, 
DOWN, UP> ACROSS 


You'll see arrays in use in many of the programs in 
this book. 


OPTION BASE 


This may be used to declare the minimum 
value for array variable subscripts. If you 
don't use it, the first element of an array 
is always zero. Using OPTION BASE 1 will 
ensure that the subscript of the first 
element in the array is 1. 


ERASE 


ERASE is used when you wish to wipe out a 
previously dimensioned array. You use the 
the command ERASE followed by the variable 
name of the array, such as A. More than one 
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array can be erased within a single Line by 
following the word ERASE with the names’ of 
the arrays, separated by commas, as ERASE 
n, m, oO. Then the arrays. can be 
redimensioned,. 


MAKING COMPARISONS 


The computer can use statements such as AND, OR and 
NOT to compare two or more things, and can act’ on 
the result of that comparison. 


AND 


If two statements to be checked are joined by an AND 
statement, then the computer will act only if both 
statements are true. The next program shows this: 


18 A=180 
28 B=280 
38 IF A=16@ AND B=268 TH 
EM PRINT "VES" 
OR 


Two statements joined by an OR will Lead to a 'true' 
finding if either of them is true. Our next program 
illustrates this: 

16 A=168 

28 B=208 

34 IF A=1@@ OR B=10@ THE 

MH PRINT "YES" 


AND and OR can be used in the same program Line, as 
this next example shows. In this program, the 
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computer will report "TRUE" if A and B are greater 
than 10 or if A equals B. Try it with a number of 
sample values for A and B, until you are sure you 
understand what is going on. 


1@ IMPUT"A"SA 

28 INPUT"B"SB 

30 IF A>1@ AND B>1@ OR A 
=B THEN PRINT "YES" 

48 GOTO 16 


NOT 


This is used to produce, in effect, an _ ‘'opposite' 
condition to be tested, as you'LL see in this brief 
routine: 

18 INPUT"A"SA 

28 INPUT"B"$B 

28 IF NOT A=B THEN PRINT 


n NO u 
44 GOTO 16 


ARITHMETIC OPERATORS 


The operators are > (greater than), < (less than), 
>= (greater than or equal to), <= (less than or 
equal to) and <> (not equal to). 


These can all be used in decision-making Lines, when 
the computer is trying to determine whether a 
statement is true or false. Enter this next program, 
trying it a number of times with different values, 
to see the effect of the arithmetic operators. 
Notice that they can be 'chained' with AND, or OR, 
or NOT. 
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19 INPUT"A"3A 

26 INPUT"B"S$B 

39 IF A>B THEN PRINT "A 
IS BIGGER THAN B" 

49 IF AXB THEN PRINT "A 
IS SMALLER THAN B" 

S@ IF ACB OR A+B=1@ THEN 
PRINT "A IS SMALLER THA 

H B",."OR A+B EQUALS 18" 
6@ IF ACB AND A>1@ AND B 
+2@ THEN PRINT "A IS LES 
S THAN B","AND A IS GREA 
TER THAN", "1@ AND BIS G 
REATER">>"THAN 26" 

7@ FOR T=1 TO 206: NEXT 
34H GOTO 16 
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CHAPTER TWELVE — BUSINESS APPLICATIONS 


Many computers are Launched without’ significant 
software support from the manufacturer. Commercial 
software companies watch the Launch of a new 
computer, trying to gauge when there will be enough 
machines in the marketplace to justify spending time 
developing programs, whether they be games or 
business application programs. In the meantime, 
while waiting for programs which suit your needs to 
be deve Loped, you can either adapt existing 
published programs from books or magazines, or write 
your own material from scratch. It is Likely you 
will move from adapting programs into the field of 
writing your own. 


If you know your business is unusual, and that a 
specific. program would be very useful, it may well 
be worth the trouble and expense of hiring a_ free- 
lance programmer to create a program for you or 
modify a program which is currently available. 
Otherwise, books and magazines will be among your 
program sources. 


There are a number of things to keep in mind when 
you decide you'd Like to buy software for your HX20. 
You may be Lucky enough to find exactly the program 
you need, which simply has to be Loaded in and then 
run. However, a program which is tightly Locked to 
your present method of doing business may prevent 
you from changing and developing your method of 
operation if the need arises. 


Despite any claims you see in the advertising of 


programs, it is improbable that exactly the right 
program for your present and future needs exists 
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ready for purchase off the shelf. You must’ be 
prepared to work on the program to some extent. 


Several companies are developing programs which are 
open enough to be tailored for a number of appLi- 
cations but are still tightly written enough to be 
of real use. You'll find these advertised and 
reviewed in the computing magazines. You may well 
find it worth hiring a freelance programmer ffor a 
short time to do the adapting to make the program 
suitable for your needs, or — once you've worked 
through this book - you may feel up to the task 
yourself. The software company may well be able to 
help you locate a program to modify the program for 
your own needs. You will possibly also find that 
the "backup service' provided by the company, 
although certainly not going as far as a rewrite to 
order, will include advice on how you can modify the 
program to your needs. Another approach is’ to 
advertise for someone to come in on a part’ time 
basis to help you modify the program. 


WHAT CAN YOU BUY? 


The following programs are among those which are 
most generally available for small business use: 


— payroll 

— inventory 

— accounts receivable 

- accounts payable 

— general Ledger accounting 
- word processing 


You may well find you can buy a_ package which 
includes more than one of these programs in a single 
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integrated form. Many of the spread sheet accounting 
programs have developed versions which can perform a 
number of related tasks, and you may find such a 
program is suitable for your needs. To help you 
evaluate the use of the HX20 in business, our 
program Minicalc, which follows this discussion, not 
only performs a useful forecasting task by itself, 
but also will give you hands-on experience in 
working with such programs. 


The whole field of budgetary control and forecasting 
is growing and is one of the areas where computers 
find most ready acceptance, because their value is 
so easy to appreciate. Using percentages and ratios 
for the analysis of financial statements is a grow- 
ing field, and a program to assist with this may 
prove very valuable. 


MINICALC 


The Minicalc program, which can be very useful for 
extrapolating trends, allows the use of LPRINT to 
give you a permanent hard copy of its output. You 
can, however, use it with PRINT so the results are 
just shown on the screen. You are given a choice at 
the start of each RUN. Minicalc offers one of the 
facilities provided by spread sheet programs. 


If you have any stream of data which represents 
returns of events occurring in sequence, and _ which 
appear to indicate a fairly steady development, 
you'LL find applications for this program. 


You could, for example, plot the cost of running a 


car Over a two year period, and assuming you kept 
the same car, and did not do something radical to it 
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like having an accident or replacing the motor, 
could predict with some certainty the running costs 
for the following year. Car repairs tend to follow a 
trend which could be characterised by slowly rising 
costs, partly due to inflation and partly to the 
increasing age of the car. 


Similarly, the number of rejects on a_ production 
Line, with constantly improving quality control 
earlier in the production process, should Lead to a 
gradually decreasing rejection rate. Entering known 
figures for rejects into Minicalc could provide you 
with an indication of the reject rate for three, six 
and nine months ahead, assuming your quality control 
improvement continues. You may well find that such 
things as the number of man hours lost due _ to 
industrial accidents in your plant shows a_ downward 
trend. Minicalc is ideal for producing a_ forward 
projection of this trend. 


Many relationships can be extrapolated with this 
program, and so long as you do not run_ the 
projection too far into the future, and you’ watch 
for absurd output with 'excess extrapolation', you 
should find the information of value. 


An example of excess extrapolation would be to enter 
the growth pattern in passenger use of a_ privately— 
owned bus service, until it exceeded the number of 
people in the area served by the buses, or exceeded 
the number of people in the area who did not have 
easy access to alternative means of transport. To 
suggest that because your company showed a_ gross 
improvement in output of five per cent per month for 
the last six months that it was probable that this 
growth pattern would continue month after month for 


167 


five years, and on the basis of projected income 
from the firm in five years time make massive 
Capital investment now, would be placing too much 
reliance on ae relatively short period of data 
collection. 


Despite these cautionary examples, you'LL still find 
Minicalc a valuable planning tool, especially if you 
use it to project for time periods which are similar 
to the time periods over which your entered data has 
been collected. That is, if you have sales figures 
from a particular territory for 12 months, and you'd 
like to see how the next 12 months shape up, 
assuming gross factors remain much the same over the 
coming year as pertained during the year for which 
data is available, you could use Minicalc with some 
confidence. To project the next decade's’ figures 
from a single 12 months' return would not be wise. 


However, even this long range forecast could be of 
benefit in highlighting, for example, the residual 
deterioration in sales from a certain territory. 
While a one per cent drop per month in sales over a 
six month period might not seem too critical and 
could no doubt be blamed on external factors, 
projecting this for a further five years could 
highlight the seriousness of the _ problem. For 
example, entering six months' sales figures into the 
program (assuming the figures were 100 units, 99, 
98, 97, 96 and 95) would show an_— average 
deterioration of 1.04%. Projecting this trend would 
show figures of 84 after 12 months, 74 after 24 
months and 65 after 36 months, a falloff of more 
than a third. 


On the other side of the coin, the output of a 
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growing trend can be a very encouraging source of 
good news. Assuming, for example, you projected 
future days Lost through strike action, after you 
have followed a year-long process of improving 
management/worker relations, and entered figures for 
the Last four quarters of 145 hours, 136, 122 and 
104 lost, you'd find that if the trend continued 
over the next four quarters you'd only Lose 91 man 
hours, 80, 71 and 62 respectively. Even if you 
doubt the reliability of a straight Line projection 
of this type, you will probably agree that at the 
very least it gives additional information with 
which to make management decisions, and even if 
limited, this can be of value. 


Before I give you the program Listing, here are a 
couple of examples of the printed output of the 
program. The first one shows the number of compon- 
ents rejected per month (out of each 100,000 made) 
on a particular production Line. As you can see, the 
reduction per month is not particularly regular, 
although the overall trend is towards Lower reject 
rates per month. The program averages the rate of 
change, and then assumes this rate of change will 
remain constant in the coming 10 months. Although 
the program Listing and output refers to time 
periods called 'months', it can obviously be altered 
or taken to refer to any time period you desire, 
from nanoseconds to years. 


Recorded figures: 
Month 1 2987 
Month 2 2986 
Month 3 2964 
Month 4 2953 
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Month 5 2948 
Month 6 2937 
Month 7 2906 
Month 8 2899 
Month 9 2876 
Month 16 287 


Difference between 


months: 

Months 1 - 2 -.24 % 
Months 2 - 3 -.54 % 
Months 3 - 4 -.38 % 
Months 4-5 -.17 * 
Months 5 - 6 -.38 % 
Months 6 - 7? -1.07 % 
Months 7 - 8 -.25 * 
Months 8-9-8 % 
Months 9 - 18 -.21 % 


How a Projection 
of charge: 


Month 1 - recorded 


2878 
Month 2 - 2857 
Month 3 - 2844 
Month 4 - 2821 
Month 5 - 2818 
Month 6 - 2866 
Month 7 - 2793 
Month 8 - 2786 
Month 9 - 2763 
Month 16 - 2755 


The second sample shows sales (in units of $10,000) 
recorded by a suburban hifi store over a period of 
six weeks (and note that the reference to 'months' 
in the program output is taken to mean 'weeks'). 
Ignoring the effect of events Like Christmas on 
sales patterns, the retailer was interested in 
learning what sort of sales she could expect over 
the next 24 weeks. Note that the program gives two 
options as the basis for projection - the figure 
for the last recorded month, or an average of all 
entered figures. The first projection shown here is 
based on the 'Last month' figure, and the second one 
on the average per month figure. As can be seen, 
this second projection is more conservative, and may 
prove a more useful basis for decision-making. 


Recorded figures: 
Month 1 27.64 
Month 2 27. 94 
Month 3 28.65 
Month 4 28.85 
Month S 28. 96 
Month 6 29. 71 


Difference between 


months = 

Months 1 - 2 1.87 % 
Months 2- 3 .39 % 
Months 32-4 @% 
Months 4-5 3.14 % 
Months 5 - 6 2.52 % 
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This 
per week: 


Now a 
of 


Month 


Month 
Month 
Month 
Month 
Month 
Month 
Month 
Month 
Month 
Manth 
Month 
Month 
Month 
Month 
Month 
Month 
Month 
Month 


Month ; 


Month 
Month 
Month 


Manth = 


Month 


Manth 
Meanth 
Month 
Manth 
Manth 


Frojection 

change: 

1 - recorded 
29.71 

Zz - 30 

3 - 30 

4 - 31 

5 - 31 

6 - 32 

7 - 32 

8 - 33 

9 - 33 

10 - 34 

11 34 

12 - 35 

13 - 35 

14 - 36 

15 - 36 

16 - 37 

17 - 3° 

138 - 38 

13 - 36 

28 - 33 

21 - 39 

22 - 46 

23 - 448 

24 - 41 


is the projection based on the average 


Frajection 
change: 

1 - recorded 

23. 71 

z- 28 

3 - 28 

4 - 29 

3 - 29 

6 - 30 


return 


Manth Fo - 38 
Manth & - 38 
Month 3 - St 
Month [a - 3 
Month lio - 
Hanth 2 
Hanth is - 
Month t4 - 
Manth iS - 
Manth te - 
Month i? 

is - 

1 ae 

Za 

2 = 

nad - 3 


And this is the complete Listing for Minicalc: 


1@ REM Minicalc 

26 CLS 

34 GOSUB 876 

40 PRINT "Enter number oa 

f'SPRINT"months for whic 

H"sPRINT "fisures are": 

MPUT"avsilable"sM:IF M<2 
THEN 46 

58 TT=8 

68 CLS 

78 DIM ACM), BCM> 

86 IF 2=1 THEN LPRINT "R 

ecorded fisures:" 

99 FOR A=1 TOM 

168 PRINT "Eriter fiaure 
manth":A 

116 INPUT ACAD 

126 IF Z=1 THEN LPRINT " 

fianth"s AACA? 

136 TT=TT+ACA3 

148 NEXT 
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15@ AU=TT-M 

16@ FOR B=2 TO M 

178 BCB>=¢(168-CACB-1)*16 
BACB) 2) 

188 HEXT 

136 CLS 

206 PRINT "Difference be 
tyueean" 

218 PRINT “months: " 

220 PRINT 

239 IF 2=1 THEN LPRINT:?L 


Saar "SLPRINT 

246 IF 2=1 THEN LPRINT " 
Gifference between" !LPRI 
HT "“moanthe: " 

256 FOR A=2 TO M 

268 PRINT "Momths“3A-1:" 
—"Sas THT C1Q@64bCAs9-1005" 
2708 IF eel THEN LPRINT " 
Manths"sA-13"-"'43s INTC1a8 
BeBCAr Las "%" 

288 HEMT 

29a FOR T=1 TO 2808: HEXT 
364 TT=8 

218 FOR a=2 TO M 

226 TT=TT+BCA3 

Za NEST 

S46 QUE=INTCTT#100-¢M-13 


758 CLS 
36a IF Z=1 THEN LPRINT:L 


anon UE LPRIWT 

274 PRINT "Aw. chanser"s 
AVES "%" 

=86 IF 2=1 THEH LPRINT " 
rave “chanse"! AYES "%" 

For T=1 TO 2eoe: HEX ‘T 
400 CLS 

416 PRIHT "Mow & Frowject 


428 PRINT " of change 
430 IF 2=1 THEN LFRIWTIEL 
wae n = TLPRINT 
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449 IF 2=1 THEN LPRINT " 

How & Projection": LPRINT 
2 of change: " 

456 FOR T=1 TO i3566:HEXT 

460 PRIHTSPRINT"How marry 
month’ s" 

470 PRIHT"erojection do 

a" 

$39 [INPUT want" Hu 

4398 CLS 

549 PRINT "Final month: " 
Pac 

S19 PRINT "Aw. Fer month 
s uw : AL 

S26 FOR T=1 TO ise: NEXT 

S20 PRIWT "Prosection on 

549 PRINT TABCS33"1 - Fi 

nal month" 

S59 PRINT “or 2 - averga 

eS TOBCFas "eer month?" 

Se9 Abs=IHkKeys 

Sra IF Aag<"i" OR Age"2" 

THEN 568 

SSa O=UALCAS = 

ao@ CLS 

ea TF 2=1 THEN LPRINT 

619 E=Cach? SD D=1Ls4+cAU 
AHD D=2) 

B28 PRINT "Moarnth 1 - rec 

or ded" 

6358 PRINT »Actts 

649 IF £=1 THENLFRINT "MM 

onth 1 - recorded" 

654 IF £=1 THEN LPRINT ; 

ach} 

664 FOR Aa=2 TO NU 

67G E=E+GUExE~18G 

688 PRINT "Month's as "-"s 
IHTtE> 

696 FOR T=1 TO Sh@:HEXT 

THe IF Z2=1 THEH LPRINT "“ 

Month's Ast" THTCeES 


718 HE YT 

rea IF Z2=1 THEN LPRINTEL 
Pp I NT WU esas eee cant tere fe etre ees espe as eats 
pita niemar ae "SLERIHTILPRINTIEL 
PRIHT 
PRS FOR T=1 TO LSae@: EXT 
P4a PRIHT! PRINT 
PS PRINT "1 ~- Prosectio 
" asain" 
rsa PRIHT "2 ~- Chiteut as 


om 
! 


Start asa 


MT "4 = To and" 
INKEYES 2°" THEN 7 


HF=THREY 

IF Ag=""" THEN Sag 
Ag="1" “HEN 4ae 
mé="2" THEN 19a 
Ag="3" THEM RUM 
Ag="4" THEN CLEP 
PINT? PRINTEPRINT "Thank 


450TO Foe 
PRINT “Ercter 1 if wo 


f PRINT “want 3 cary o 
PRIHT "the printer.. 
: PRINT "2 af sou dan’ 
Ag= ees 

end OF Ag eN2" 


540 IF 2=1 THEN LPRINTEL 
PRINT "Seno. 5522 ue eo 


ace nnse' tL PRINT 


Ee RETURN 
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Line 30 sends action to the subroutine from Line 
879, which allows you to select screen only output, 
or screen plus printer output. In Line 40, you are 
asked to enter the number of months for which you 
have information available. You'Ll recall that the 
word ‘month' can be taken to stand for any time 
period you Like, although it should be noted that if 
you decide 'months' stands for 'weeks' in the input 
part of the program, 'months' must also stand ffor 
'weeks' at the output section. 


If your activities are habitually divided into other 
time periods than months, you may wish to enter the 
other time period as you enter the program, every 
time you come to 'month' or 'months' in the Listing. 
If you have no intention of using printer output 
(although you'LL be depriving yourself of a _ real 
benefit by deciding not to allow the option of a 
hard copy of results), you can omit any Lines (such 
as 230) which begin "IF Z = 1 THEN...". 


Line 50 sets the variable TT, which will hold the 
total figures for the period entered, to zero. The 
screen is cleared in Line 60 and two arrays. dimen- 
sioned to hold the entered information (array A) and 
the difference between subsequent months [array 8B). 
The Loop from Lines 90 to 140 accepts and totals the 
enetered data, and Line 150 works out the average 
per month, assigning this value to the variable AV. 


The loop in Lines 160 to 180 works out the diff- 
erence between months, in percentage terms, 
assigning this information to elements of the B 
array. Line 190 clears the screen again, in 
preparation for printing out this information in the 
loop from Lines 250 to 280. Line 290 (as well as 
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Lines 390, 450, 520, 690 and 730) uses a dummy Loop 
(control variable T) to delay action of the program 
to allow the user to assimilate the information 
before continuing. The variable TT is again set to 
zero in Line 300, and the Loop from 310 to 330 sums 
all the percentage differences, then Line 340 
assigns the variable AVE to the average of the 
these. 


After clearing the screen in Line 350, Line 370 
prints out the result of this calculation (that is, 
the average of the percentage changes from month to 
month). The screen is cleared again (Line 400) and 
the projection part of the program begins. You enter 
the number of months for which you want an extrap- 
olation (Line 480) and then you're asked whether you 
want the projection based on the average return per 
month, or on.the final month's figures. An _ INKEY$ 
input is used at this time (Lines 560 and 570) to 
remove the need to press RETURN after touching the 
digit indicating your choice. A routine Like this 
is ideal for interpreting a choice from a menu when 
the choices can be indicated with a single key 
press. 


Line 610 uses the computer's method of interpreting 
Logic statements to assign E (the base upon which 
the projection will be built) to either the final 
month's return, or the average month's’ return, 
depending upon which one you've indicated as your 
choice. The Loop from 660 to 710 actually makes 
(Line 670) and then prints out the result of the 
extrapolation. 
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The menu between Lines 750 and 780 outlines your 
choices once the program is over. You can: 


— run the program again (changing the 
base if you Like) 

- see the program run again, without 
having to re-enter the initial data 

- run the program from scratch 

— terminate the run 


If you've run the program once, and you had _ not 
selected the option for printout, but now decide it 
would be good to have a printout and do not want to 
re-enter the figures, select option four from the 
menu, which terminates the program. Then enter as a 
direct command Z = 1:GOTO 190 then press RETURN. You 
will not have a printout of your original data, but 
you will have the most important part of a run, the 
projection. Notice how INKEY$ is used in this 
section (as it was in Lines 560 and 570) to remove 
the need to press RETURN after selecting one of the 
options. The final routine, from Line 910, is the 
printer option selection routine. 


PERSONAL FINANCE 


Our next program — PERSONAL FINANCE —- will not only 
prove useful in its own right, but your experience 
working with it should aid you in evaluating 
business software for your own needs. In fact, you 
may well be able to modify it to work as a budgetary 
control program for a small business, or Learn 
enough from starting and running it to go on to 
develop a financial planning program of your own. 


The program is designed to both help you balance 
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your checkbook, and to project future recurrent 
costs against your income. If you have, for example, 
to pay $399.50 per month on your housing loan, $250 
per month on payments on your boat, and $22.56 for 
newpaper deliveries, you can enter these costs and 
your current balance, then get the computer to 
subtract the total cost from the balance. The 
program will accept deposits from you, and_ keep 
you informed of the running balance. It is designed 
to lead you step by step through looking at your 
checking account balance. 


When you first run the program, you'Ll be presented 
with a menu of four choices: 


1 - to start again 
2 - deposit 

3 -— modify schedule 
4 - stop 


When you turn on the computer, press "1" as_ the 
option. ‘Enter number of items to be paid for’ each 
month' is the next instruction you'LL be given. It 
is best to be generous here, perhaps entering a 
higher number than the maximum number of items you 
think you'LL need because although you can _ leave 
some items blank, you cannot add additional items 
once the program is running (although you can easily 
change an item — even a blank one - into another 
item, so blanks can be used for Later additions). 


Look at the sample run of the program which follows 
this introduction. Following it through will give 
you a pretty good idea of how the program runs. 
You'Ll find that, once the program is underway, it 
leads you neatly, step by step, through the needed 


procedure. Once you've read through the sample run, 
and worked out what is going on, enter the program, 
and try running it. Then return to the book for a 
detailed explanation of what the various sections of 
the program do. 


Here is the sample run: 


Current balance: 
$o 


start again 
derosit 
modify schedule 
4+ - stor 

Enter mumber of 
items to be 
Faid for 

each month 
Enter name of 
item number 1 
MORTGAGE 


he 


And how much is 
MORTGAGE 

each month 
MORTGAGE $ 345.67 
Enter mame of 
item number 2 

CAR 


And how much is 
CAR 

each month 
MORTGAGE $ 345. 67 
CAR $ 146.37 
Enter mame of 
item number 2 
SERVICES 


And how much is 
SERVICES 

each month 
MORTGAGE $ 345.67 
CAR $ 146.37 
SERVICES ¢$ 75 


Enter & if correct 

C to chanse one 

A to see list asain 
Enter last knawn 
balance 

$ 1287. 98 

Enter derosits, 

one by one, 

end with ’E’$ 1331.54 
Enter derosits, 

one by one, 

end with ’E’% 1457, 21 
Enter derosits, 

one by one, 

end with ’E’ 

Enter 1 to subtract 
all of Fayments, 

or 2 for menu 


Cost schedule 
totals # 567. a4 


Eslance before 
current costs: 
$ 1457. 21 
Current balance: 
$ 890.17 


1 - start again 

2 - derosit 

2 - modify schedule 
4 - stor 

Thank you 
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And here is the program Listing: 
18 REM Fersonal Finance 


28 CLS 

38 BAL= 

44 GOTO 838 

38 PRINT “Enter number o 
ff" 


68 FRINT “items to be" 
7 PRINT “paid for" 

S@ PRINT "each month" 
96 INPUT NUM 


11@ DIM ASCNUM>.ACHLIM? 
126 FOR A=1 TO NLM 
134 PRINT "Enter name of 


144 PRINT "item number"; 


A 
138 INPUT ASAD 
166 IF LENCAS¢AIO<2 THEN 


17@ PRINT “And how much 


18@ PRINT ASCAD 

196 PRINT “each month"; 
286 INPUT ACAD 

210 FOR 2=1 TOA 

22@ PRINT ASE 29S" E05 ACZ 
236 HEXT 

244 HEXT 

258 PRINT "Enter ® if co 
rrect" 

268 PRINT "C to change o 
ee! 

276 PRINT "A to see list 
again" 

280 BS=INKEYS 

290 IF BS<>"K" AND BS<>" 
x" AMD BS<o>"C" AND BS< >" 
c" AND BS<="A" AND BS<>" 
a" THEN 286 

300 IF BS="K" OR BF="e" 
THEN 486 
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310 IF BS="A" OR BS="a" 

THEN PRINT: FOR 2=1 TON 

LIMZPRINT A$C293" "SACZ 
JSNEXT: GOTO 258 

326 PRINT “Enter number 

of" 

236 PRINT “item you wish 
to " 

240 INPUT "change"; 

350 PRINT: PRINT 

36@ PRINT "Enter new nam 

e for" 

378 PRINT “item number"; 


38@ INPUT AS¢B> 

396 PRINT: PRINT 

4048 PRINT "And how much 
=" 

414 PRINT At<B> 

428 INPUT “each month"3A 
Bo 

430 CLS 

449 FOR A=1 TO NUM 

456 PRINT ASCARIS" —F"5 AC 

AD 

466 NEXT 

47@ GOTO 256 

48@ CLS 

490 IF BAL<>4 THEN Sea 

566 PRINT "Enter last kn 

oun" 

516 INPUT "“balsance": BAL 

526 CLS 

B28 PRINT "#"s BAL 

S48 PRINT "Enter derosit 
550 PRINT “one Eras one:" 
ae? PRINT “end with "EB?" 


ara INPUT @$ 
530 IF Q$="" THEH 3 
390 IF O%="E" OR rake " 
THEN 628 
688 BAL=BAL+WAL Coe | 
614 GOTO 528 
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620 PRINT "Enter 1 to su 
btract" 

636 PRINT "all of Paymen 
ts," 

644 PRINT “or 2 for menu 


te 
> 


650 C$=INKEVS 

660 IF C$<"1" OR C#>"2" 
THEN 658 

67@ C=UALCC$) 

686 IF C=2 THEN 878 
638 SD=0 

790 FOR A=1 TO NLM 

710 SD=SD+ACA> 

726 NEXT 

730 PRINT: PRINT 

748 PRINT "Cozt schedule 


75@ PRINT "totals $"3S6 
6@ FOR T=1 TO 15@8:HERT 

ra CLS 

S@ PRINT "Balance befor 


798 PRINT “current costs 


S0@ PRINT TABS493"$"5 BAL 
£14 BAL=BAL-SD 

826 FOR T=1 TO 2068: HEXT 
830 PRINT "Current balan 


840 PRINT TABCHI9"$"S BAL 
5 


IF BAL? & THEN SOUNE 
?PRIWT "Overdr awn" 
FOr T=1 TO S6@e@: NEXT 
PRINTIPRINT: PRINT 
PRINT "1 - start sas 


Mo mrs 


fae ee 


a 


Coe Co oo es oe 


‘96 PRINT "2 - deposit" 
3968 PRINT "3'- modify sc 
hedule" 

314 PRINT "4 - stor"; 
926 IF INKEYS<>"" THEH 3 
2B 

930 CE=INKEYS 
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349 IF C#e"1" OR C#e"4" 
THEN 938 
958 PRINTS PRINT: PRINT 


368 CHaVALCCE 
37@ IF C=1 THEN CLEAR: GO 
Ta ra 


S38 IF (=z THEN S38 
36 IF (=3 THEN 436 
Bae IF t=4 THEN PEINTIF 
STHT" Thank wou"! ENE 
Hie GoTo ete 


Now Let's have a detailed Look at the contents of 
the program. The variable BAL holds the balance of 
your account, and this is set to zero in line 30, 
before Line 40 sends action to the routine from Line 
830 which displays the opening menu. The routine 
from Line 50 is the destination of item one from the 
menu ('to start again'). You are asked to enter the 
number of items to be paid for each month, and Line 
90 accepts this number, assigning variable NUM to 
it. 


The screen is cleared (Line 100) and two arrays dim- 
ensioned in Line 110, one to hold the name for each 
item in the payment schedule, and the other to hold 
the corresponding value. The Loop starting at Line 
120 allows you to enter the schedule names (Line 
150) and values (Line 200), reprinting the List of 
items entered so far (using the Loop from Lines 210 
to 230) after each new item is entered. 


Once you've finished entering the items, you are 
given the chance to modify, correct or otherwise 
change the List. You touch the "X" key if you are 
happy with the List, the "C" if you wish to change 
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an item, and the "A" to see the List again. The 
routine in Lines 280 and 290 reads the keyboard, 
rejecting inappropriate inputs. If you decide the 
list is OK (that is, you have entered an "X") the 
program continues on from Line 480. Line 310 
arranges for a reprint of the List, and the routine 
from 320 to 420 accepts a single modification of an 
item and its price. The computer then returns to 
Line 250, to allow you to approve the change, and if 
necessary to make more. 


Line 480 clears the screen and if the balance is not 
zero (that is, the variable BAL has a value other 
than zero, see Line 490) the program jumps the small 
section in Lines 500 and 510 which allows you to 
enter the 'Last known balance'. Line 530 prints the 
balance, and then the deposit routine begins. The 
sequence from 530 to 610 is repeated, each time 
allowing a new deposit to be entered, and each time 
reprinting the balance as it stands after that 
deposit has been made. The series of deposits is 
terminated by entering "E". 


Note how the input values for the deposits are 
accepted as strings, then VAL is used to reject 
input where just RETURN has been pressed without a 
preceding number (Line 580) and, of course, caters 
for the "E" which signals that there are no more 
deposits to be entered. 


Once the deposits have been added into the balance, 
you are given the choice of subtracting all the 
payments in your schedule from the balance, or of 
going to the menu. Going to the menu at this point 
is useful if you decide you want to add additional 
deposits, or you wish to modify the payment schedule 


in some way before subtracting the total of the 
schedule from the balance. An INKEY$ routine is 
used here to get either "1" or "2", 


The variable SD is used for the scheduled items, 
totalling them in the loop 700 to 720. The result of 
this Loop calculation is shown in Lines 740 and 750. 
There is a short delay in Line 760 before the screen 
clears again. The 'balance before current costs' is 
printed, followed by a delay, then the current 
balance is’ shown. Line 850 ensures that if the 
account is overdrawn, the message "Overdrawn" 
appears next to the final (negative) balance, and a 
tone sounds. Line 860 pauses before scrolling up 
(Line 870) to present the menu again. 


OTHER APPLICATIONS 


We will now Look at a few additional financial tasks 
in which your HX20 can prove useful, giving a short 
program to carry out the job in each case, and an 
example of it in use. 


PERCENTAGE CHANGE 


If you know what a figure is, and wish to find out 
what that figure plus a percentage of it is (such as 
finding out how much your house will be worth in a 
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year, if 


an increase of 5.5% is expected) you 
use the following: 


18 REM Fercentsase change 
SeOTMPUT "Current worth" 
aly 
38 IHFUT "“Percentase cha 
mae"tP 

M PRINT "Increase «Id o 


4 


THPUT "decrease (D)"s5 
IF D$="—" THEN P=-P 

a Hed t+P ela ac 

22 PRINT "The new fisure 


39 PRINT “is "IN 


Here are two examples of it in action: 


Current worth? 

S57 O8 

Fercentase change? 
ba Ete 

Increase (I) or 

decrease (D> 

i 

The new figure 

is 37663.5 


Current worthy? 

S57 ag 

Fercentage chanse? 
1a 

Increase eae {or 

decrease (D> 

I 

The new fisure 

is To92TO 
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SIMPLE INTEREST 


There are four variables involved in simple 
interest: 


— principal 
—- rate 
—- time 
- interest 


When you run the program, you enter the figures you 
have, entering a zero for the figure you do not 
know. The computer will use the correct version of 
the formula to produce the unknown value. Note that 
TIME must be entered in years (with decimal 
fractions allowed, such as 3.5 for three and a half 
years), and the RATE must be a single figure which 
represents the percentage rate (such as 7.25 for 
7.25%). 


Here is the Listing: 


16 REM SIMPLE INTEREST 
28 FOR T=1 TO S@Q:NEXT 
38 CLS 

44 INPUT "PRINCIPAL": P 
56 INPUT "RATE"SR 

58 R=R-106 

Ya INPUT "TIME"3T 

88 INPUT "INTEREST"; 1 

30 IF P=6 THEN GOSUB 136 
: RUN 

19@ IF R=@ THEN GOSUB 16 
2 RUN 

116 IF T=6 THEN GOSUB 19 
G: RUN 

126 IF I=@ THEN GOSUB 22 
@:RUN 
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136 PRINT "PRINCIPAL IS" 
144 PRINT I/“cR¥T> 

156 RETURN 

164 PRINT “RATE IS" 

177A PRINT 1664] /¢P#To5"% 


12@ RETURH 

198 PRINT "TIME IS" 

=B@ PRINT IvcP*R> 

218 RETURN 

226 PRINT “INTEREST IS" 
230 FRINT PXE¥T 

248 RETURN 


Generally, we will know the amount borrowed (the 
principal), the interest rate being charged, and the 
period over which the Loan is made. The program will 
output the amount of interest which must be paid, as 
the following sample run indicates. We are borrow- 
ing $500, at 7%, for two and a half years, and want 
to know much interest will have to be paid: 


PRINCIPAL? 
388 


2.9 
INTEREST? 

4 
INTEREST IS 


ar. 5 


Here the answer "INTEREST IS 87.5" comes up, so we 
must repay principal plus interest, that is $587.50. 


In the next example, I want to borrow $1000 for 10 
years, and am told to do so I must pay $175 
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interest. I can use the formula to find out what 
simple rate of interest I am being charged: 


PRINCIPAL? 
1be8 
RATE? 
5) 
TIME? 


16 
INTEREST? 
175 


The rate is a mere 1.75! 


Finally, here is another example where I know the 
amount I wish to borrow ($5000) and the period (five 
years). I am told I must pay $6125 in total (that 
is, $1125 more than I borrowed). What interest rate 
am I being charged? The program produces the answer 
immediate Ly: 


PRINCIPAL? 
3060 
RATE? 
a 
TIME? 
5 
INTEREST? 


The rate is 4.5%. 
COMPOUND INTEREST 
The formulae involved in working out sums’ involved 


with compound interest are not as simple as_ those 
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used in the previous example. Whereas” simpLe 
interest is worked out simply as a percentage of the 
principal, with compound interest, the interest 
earned is added - from time to time - to the 
principal, so the whole amount attracts further 
interest. 


The formula is (1 + INTEREST/100) raised to the 
power of the number of years, with the result muLlti- 
plied by the starting principal. Here is a program 
to do it: 


14 REM COMPOUND INTEREST 
26 INPUT "PRIHCIPAL"$P 
38 INPUT "TIME": T 

48 INPUT "RATE"SR 

39 A=P¥CC1+R“1889*T3 

66 PRINT "$"5P3 "BECOMES" 
7B PRINT "$"3A3 "AFTER" 
89 PRINT Ts"TIME PERIODS 


Notice the reference to 'time periods'. This is to 
allow you to work on situations where the compound 
interest is added monthly, or even daily, rather 
than annually, to the figure which is attracting 
interest. You must make sure, of course, that the 
time rate you enter in Line 30 is the time rate 
which is relevant for the interest. 


Here's the result of running the program with a 


principal of $1000 invested for seven years, at 
8.25% annual compound interest: 


PRINCIPAL? 
1980 
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TIME? 
? 


RATE? 
8.25 


# 1600 BECOMES 
# 1741.79 AFTER 
? TIME PERIODS 


This second example uses $1000, at 10% annual 
compound interest, for 73 years. The result is 
rather surprising: 


PRINCIPAL? 
1986 


TIME? 
73 


RATE? 
16 


$ 1969 BECOMES 
# 1.G5115E+66 AFTER 
73 TIME PERIODS 


Yes, $1000 at 10% compound interest grows to over 
one million dollars in 73 years. If you deposited 
$1000 for each of your grandchildren now at that 
rate, they could all be millionaires in due course 
(although how much one million dollars would be 
worth in spending power at that time might not be 
very exciting). 


Here's a final thought on compound interest which 
you can demonstrate with your computer. Dividing 70 
by the interest rate will give the approximate 


period it takes money to double itself. I'tt 
demonstrate that by entering into the program the 
following figures: 


—- principal $1000 
- time 70/10 (seven years) 
—- rate 10% 


PRINCIPAL? 
1968 


TIME? 
¢ 


RATE? 
18 


$ 160@ BECOMES 
$ 1948.72 AFTER 
7 TIME PERIODS 


REPAYMENTS ON MORTGAGE 


Probably the biggest sum of money you will ever 
borrow is to buy your house. The formula used takes 
into account that the early repayments are almost 
entirely repaying interest, while the Later ones are 
repaying more principal than interest. 


This program will tell you what repayments should be 
on a housing loan, and also how much you will pay 
back altogether. This final figure is, I warn you, 
somewhat depressing. 
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1@ REM HOUSING LOAN 

26 INPUT "PRINCIPAL"$P 
3@ INPUT "TIME"$T 

44 IHPUT "ANNUAL INT. FA 
TE"sR 

56 R=R-166 

66 REP=CC1+R“*TO#R¥P/ CCC 
1+R2“T 3-1) 

7@ PRINT "ANNUAL REPAN'ME 
NT" 

38 PRINT “IS $"3REP 

96 PRINT "MONTHLY REPA‘M 
ENT" 

196 PRINT "IS $"3REP-12 
114 FOR 2=1 TO 3566: HEXT 
128 PRINT "TOTAL TO BE" 
13@ PRINT "REPAID IS" 
144 PRIHT "$"sREP*T 


Here is the result of borrowing $45,000 for 25 years 
at 14.5% interest: 


PRINCIPAL? 
45008 


TIME? 
25 


ANNUAL INT. RATE? 
14.5 


ANNUAL REPAYMENT 
IS $ 6753. 78 


MONTHLY REPAYMENT 
IS $ 562.815 


TOTAL TO BE 


REPAID IS 
$ 168844 
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The final sum repaid — $168,884 - seems a vast jump 
from the amount borrowed. 


Here is the saving realised if a Loan at half a per 
cent Lower can be arranged: 


PRINCIPAL? 
450680 


TIME? 
25 


ANNUAL INT. RATE? 
14 


ANNUAL REPAYMENT 
IS # 6547. 43 


MONTHLY REPAYMENT 
IS $ 545.619 


TOTAL TO BE 
REPAID IS 
# 163686 


Over $5000 Less overall is to be repaid, with a 
monthly payment that is some $17 cheaper. 


Finally, if you want a version of the program which 
gives a hard copy printout of the results, use the 
following: 


18 REM HOUSING LOAN 

28 INPUT "PRINCIPAL"$P 
38 LPRINT "PRINCIPAL?" 
4@ LPRINT FiLPRINT 

38 INPUT "TIME"ST 

68 LPRINT "TIME?" 

7@ LPRINT T?LPRINT 


8H INPUT "ANNUAL INT. FA 
TE"SR 

3@ LPRINT "ANNUAL INT. F 
ATE?" 

16@ LPRINT R?LPRINT 

119 R=F-100 

126 REPH=CC1+Ro“*T IO ¥R#EP SCC 
C1LtRa*T3-15 

126 LPRINT "ANNUAL REPAY 
MENT" 

144 LPRINT "IS $"3 REP 
156 LPRINT 

168 LPRINT “MONTHLY REFA 
YMENT" ; 

17@ LPRINT "IS $"3REP/12 
196 FOR 2=1 TO 35@@:HEXT 
194 LPRINT 

268 LPRINT "TOTAL TO BE" 
216 LPRINT "REPAID IS" 
226 LPRINT "$"3REPXT 


FILE HANDLING 
RAM files 


The HX20 features random access memory file data 
(RAM files) which can easily be changed. This 
information is not Lost when you turn the computer 
off, and it can be used by more than one program 
(there is no way, in fact, to restrict the DATA to a 
single program). 


The files are stored in a single alloted area of the 
HX20's memory, but may be divided (in terms of use, 
if not in fact) by the DEFFIL statement which holds 

the position of the first item stored for that 
particular file, and directs the action of subse- 
quent PUT% (place data on file) and GET% (extract 
it) calls in that program. 
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RAM files are instantly accessible (in contrast to 
sequential files which we'LL be Looking at shortly) 
but the memory available for these files is Limited, 
and you have to work out exactly what demands a 
particular file must satisfy when you set up the 
file. 


The nature of the information you store effects how 
much memory you will need. Integer variables take up 
two bytes each, single precision variables four 
bytes and double precision variables double this, at 
eight bytes each. String variables consume one byte 
per character. Because string variables can be of 
any length, you must always put them Last in a file. 


CALCULATING MEMORY REQUIREMENTS 


We reserve memory for the file with the command 
CLEAR n, m where n is the Length of the character 
file needed and m is the total Length of the file. 
The file defaults to a 200 byte area size and a RAM 
file storage size of 256 bytes. You need only use 
CLEAR if the file space needed will exceed the 
default values. 


Next DEFFIL must be used to set up the length of 
each element of the file, and the position within 
the overall RAM file this particular file will 
occupy. DEFFIL takes the form of DEFFIL n, m where 
n is the Length of an individual file and mis’ the 
address of the start of this file within the overall 
RAM file area. 
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SEQUENTIAL FILES 


Whereas RAM files are stored within the computer and 
the contents can be accessed in any order, 
sequential files must be (as their name’ indicates) 
accessed in sequence. The files are put onto tape 
and the tape must be read through in the order in 
which the information was Laid down. Sequential 
files can hold much more data than can RAM files, 
which offsets their Lack of convenience. 


To use a sequential file you need to (a) open the 
file; (b) put data into it using INPUT #, or get it 
out with PRINT #; and (c) close the file when you've 
finished with it. 


LOGIN 


The LOGIN command is used to direct the attention of 
the computer to the relevant file, from the five 
areas into which the BASIC memory space is. divided, 
so that you can use commands Like NEW and SAVE. 
LOGIN must be followed by an integer between 1 and 
5. Using LOGIN clears all variables. 


LOAD? "CASx .mmmm" 

You can use LOAD? to see whether or not a data file 
specified by the "CASx:mmmm" has been recorded 
correctly. 


MERGE 


This is used to merge a file (which must have’ been 
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saved in ASCII format) into the program in_ the 
current memory area. 


EOF 


This signifies end of file, and must be followed by 
the relevant file number in parentheses. 


LOF 


LOF is followed by a number in parentheses, and 
returns the size of the file specified by the 
number. The relevant file must have been previously 
opened in the input mode on the HX20. 


The function LOF can also return the remaining 
Length of the file if the relevant file is in a ROM 
cartridge, and the number of data stored in the 
buffer if the file is in the RS-232C port. 


FILES 


This is used to get a directory of the names of 
files within the relevant memory. If you do not 
follow the word FILES with a device name within 
quote marks, it will give you all files within 
peripheral devices currently connected to your HXe20. 
If nothing is connected, the computer will search 
the microcassette. 


The command will display the name of a file when it 
is found, the type classification (where 0 means a 
BASIC program file, 1 means a data file and 2 
indicates a machine Language program file) and the 
recording format (A for ASCII, B for binary). 
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SAVE 


This command can be used in five different ways, all 
of them concerned, as the name suggests, with moving 
a program or contents of a file from a_ volatile 
memory area to a more permanent Location. 


SAVE "mmmm" 


This saves a program called mmmm onto tape. You get 
the program back by LOAD "mmmm". 


SAVE "mmmm",A or SAVE "mmmm",V 


This is much the same as the above version of SAVE, 
except that the file is saved in ASCII format. This 
takes up more room than the binary format which is 
otherwise used, but allows the file to be accessed 
later on. A file saved in the ASCII format may be 
used as a data file. If you use a V, instead of an 
A, then the microcassette will automatically rewind, 
and verify the program just saved. 


SAVE "CASx:nnn" 


This saves BASIC programs on the file specified by 
CASx. The command can be followed by a comma, and an 
A or a V. If you use an A, the file will be saved in 
ASCII format (the default condition is to save the 
program in compressed binary format, which takes 
less space, but does not allow certain kinds of 
access to the file, such as use of MERGE). You can 
read an ASCII-saved file as a data file. The V 
triggers an automatic verifying of the program just 
saved, if the program has been saved on a_~™micro- 
cassette recorder. 
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SAVE "COMO:uvxyz",A 


This variant of the SAVE command on the _ HX20 
specifies the interface conditions of the RS-232C 
port with the 'uvxyz'. The command sends the program 
out via the port. The close quotes must be followed 
by an A, or the information will not be sent out in 
ASCII format and will therefore be useless. The 
five-character statement controls the following: 


u — the bit rate which must be a number from 0 
to 6 which specify the following bit rates: O — 110 
bps; 1 - 150 bps; 2 — 300 bps; 3 —- 600 bps; 4 - 1200 
bps; 5 — 2400 bps; 6 — 4800 bps 


v — the word Length of one character data which 
must be either 7 for 7 bits/character or 8 for 8 
bits/character 


x — this is use to specify the method of parity 
check and can be either N (no parity check), E (even 
parity check) or O (odd parity check) 


y - this is either 1 or 2 to specify the stop 
bit Length . 


z - this determines the active control Lines 
and needs four conditions to be specified, using HEX 
digits (full details on these are given in your 
manua L) 


The default condition (on warm start) of uvxyz is as 
follows: 


u — 4800 bps 
v — 8 bits/character 
x —- no parity check 


y — stop bit Length of 2 
z - CTS, ignore; DSR, active; RTS; + potential 
active; CD, ignore 


OPENCOMO 


This is used to open a specified file. It 
is followed by four parameters as described 
above. 


SAVEM "CASx:nnn", &abcde ,&mnopq, &hijkl 


This is used to save a machine code program, or 
specified memory contents, on a specified file. The 
first part of the command specifies the device and 
file name, with the first hex and second hex 
numbers (Sabcde and &mnopq) being the top and bottom 
addresses of the memory area to be saved, and the 
third number being the starting address for 
execution of the machine code program. If the data 
you are saving is not a machine code program, then 
make the third address the same as the first one. 
You cannot leave it out. 


TITLE 


The TITLE command is one key to using your HX20 most 
effectively. It allows you to hold up to five 
complete programs 'permanentLly' within the computer, 
where they will be safe from NEW. The programs 
protected in this way are available directly from 
the menu. Each TITLEd program is added to the menu 
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after the standard items 1 (MONITOR) and 2 (BASIC) 
numbered in the order in which they were TITLEd. The 
Programs held in this area can be edited indep-— 
endently. 


Try the following to test TITLE. NEW the computer, 
then enter the following: 


18 PRINT "RUNNING FROM M 
EMU" 

26 SOUMD RND¢1>*56, 1 

Sa PRINT? PRIHT 

40 GOTO 14 


Run it for a few seconds so you are familiar with it 
in action. Once you've seen it working, stop the 
program with BREAK. Now type in the following: 


TITLE "TEST" 


You can put anything you Like (up to eight 
characters Long within the quote marks. Now, press 
RETURN, then MENU to get back to the _ initial 
display. As well as the normal 1 MONITOR and 2 
BASIC, you'll see 3, followed by the word you used 
to follow the TITLE command, Like this: 


1 MONITOR 

2 BASIC 

& TEST 
Press the 3 key, and the program will start running 
automatically. TITLEd programs are, as I _ said 
earlier, protected from NEW. You can easily prove 
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this. Enter NEW and you'Ll get this message: 


PP Error 


PP means 'protected program'. Entering TITLE "" will 
delete your titled program. 


STAT 


STAT (status) is related to TITLE. Type in STAT 1 
and you'LL get a status report of the program area 
where you have just put a TITLEd program. This 
command will return the name of the program, and its 
size. Notice that although the first titled program 
comes up as 3 on the startup menu, it is referred to 
with STAT as 1, because it is the first program 
stored under TITLE. 


PROGRAMMING THE FUNCTION KEYS 


There are five programmable function keys on the 
HX20. When you turn the computer on, as your manual 
explains, the five keys are programmed as_ follows 
(where “M equals pressing the RETURN key after 
entering the word): 


1 — AUTO 

2 — LIST*M 
3 — LLIST*M 
4 - STAT 

5 — RUN*M 


Holding down SHIFT will change the keys to the 
fol lowing: 


6 (that is, SHIFT and key 1) — ?DATE$:?TIME$“M 
7 — LOAD 


8 — SAVE 
9 - TITLE 
10 — LOGIN 


It is very easy to change them to suit your own 
needs. When you turn the computer on (warm start) 
key 3, for example, is set to LLIST*M as indicated 
above. This means that touching key 3 is the same as 
typing in LLIST then pressing RETURN. 


If you wanted key 3 to make a beep sound, such as 
would be produced by SOUND 2,2 then you would type 
in (either in direct mode, or as part of a_ program 
if you wanted the key to have a specific role within 
that program): 


KEY 3,"SOUND 2,2" + CHR$(13) 


Try it now. Type in the above (where '+ CHR$(13)' is 
the way you get a “M onto the key). Now press key 3 
and the tone will sound, just as you directed. 


To prove it is there permanently, turn your HX20 
off, then on again, and type in KEY LIST (or KEY 
LLIST) which should produce this result: 


PF1 AUTO 
PF2 LIST“M 
PFS SOUND 2,.2°M 


PF4 STAT 

PFS RUN“M 

PF6 ?DATES: ?TIMES“M 
FF? LOAD 

PFS SAVE 

PFS TITLE 


FF16 LOGIN 
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CHAPTER THIRTEEN - HANDLING THE GRAPHICS SCREEN 
(inc. SCREEN, PSET, PRESET, POINT, LINE) 


The word SCREEN determines whether we wish to use 
the built-in screen, or the external one, for text 
or graphics. The LCD screen can display both 
graphics and text at once, although the external 
display can only show one or the other at a time. 


When you turn the computer on (Cand you do not press 
CTRL/@ for a cold start) the computer's built-in 
screen will automatically be set for both text and 
graphics. 


There are four pairs of numbers which follow SCREEN. 
The numbers, and their effect, are as follows: 


COMMAND FORM: RESULT: 


SCREEN 1,0 External display — text 
LCD - graphic 


SCREEN 0,2 LCD -— text 
External - graphic in high- 
resolution mode 


SCREEN 0,1 LCD — text 
External — graphics in 
color 
SCREEN 0,0 Both text and graphics 
on LCD 


The following program puts a picture on the built-in 
graphics screen first, then adds text. Note that 
Line 10 is not needed when the computer is turned on 
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with a warm start. 


This program also shows the PSET command in use. 
PSET is used to print a single dot onto the screen. 
The built-in screen is 120 points across and 32 
points down, so you can PSET points within’ these 
Limits. Note that the horizontal co-ordinate comes 
first, with the vertical one second. 


14 SCREEN @.8 
28 CLS 

38 FOR 4=18 TO 38 

44 FOR Y=5 TO 25 

S@ IF RND¢192@.5 THEN PS 


FQ WEXT & 

3@ PRINT "THIS" 
38 PRINT "IS A" 
18@ PRINT "TEST "3 
118 GOTO 38 


Here's a program which plots something a Little more 
interesting than a random series of dots: 


14 REM SUMMER WINE 
2H SCREEN 4.9 

38 CLS 

4@ RANDOMIZE WALCRIGHTS< 
TIME#, 239 

SA A=INTCRND¢19*128) 
6H B=INTCRND¢ 19*32) 
Fe PSET CA: Bs 

88 PSET ¢126~-A,B> 

98 PSET ¢€126-A,32-B> 
184 PSET ¢A,32-B) 
118 GOTO 54 


The quality of the output has to be seen to be 


believed. Add the following Line if you want a perm- 
anent copy of your unfolding designs: 
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165 IF RND¢12>G. 98 THEH 
LPRINT: COPY: LPRINT"----- 


Here's part of a series of designs produced by this 
program: 


Obviously, if you run this program Long enough, the 
entire screen will turn black. The command PRESET is 
the opposite of PSET; it unplots a dot rather’ than 
plotting it. Here's a second program, Autumn Mist, 
which uses PSET and PRESET to create a_ constantly 
evolving design: 


14 REM AUTUMH MIST 

29 SCREEN 4.6 

24 CLS 

4@ RANDOMIZE WALCRIGHT#< 
TINE#, 29) 

S@ A=INTCRND¢ 19*12@) 

BA B=INTCRNDE 19*322 

78 IF RNDC13>0.4 THEN GO 
TO 1368 

28 PSET ‘AB 

96 PSET (12@-A>B> 
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149 PSET (128-A;,32-B) 
114 PSET CA, 32-B> 

12@ GOTO 56 

138 PRESET ¢A>B? 

144 PRESET ¢A;32-B2 

15@ PRESET (128-A,B> 
16@ PRESET (120-A; 32-B> 
17@ SOUND RNDC1>*56, 1 
184 GOTO 56 


As you'LL hear, this program also has a_= sound 
routine (Line 170) which produces random beeps as 
the program runs (one beep for every four dots 
erased). If you're running the program on the LCD 
screen, PRESET erases a dot from that screen. On an 
external display, PRESET resets the position to the 
background color. 


Note that PSET and PRESET co-ordinates are different 
on the external display from the LCD co-ordinates. 
The range of co-ordinates on the LCD is 120 
(horizontal) by 32 (vertical). The external display 
has, in the four color mode, a resolution of 128 
(horizontal) by 64. The vertical range increases to 
96 when the external display is operating in the 
high resolution mode. Note also that when operating 
in the four color mode, you continue to specify the 
co-ordinates as though you were working in the high 
resolution mode. The dots are not mapped one to one 
with the co-ordinates. The relationship between the 
designated co-ordinate and the actual point plotted 
is given by the following: Vertical position equals 
the integer value of two times the vertical co- 
ordinate divided by three. 


POINT is used to determine the presence, or 
otherwise, of a plotted point at a specific 
position. The next program uses PSET to place some 
dots randomly on the screen, then uses POINT to see 
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how many of them can be found. When you run this, 
you'LL hear a beep every time a dot is found. 


16 CLS 

28 RANDOMIZE WALCRIGHT#¢ 
TIME#, 25) 

3H FOR A=1 TO 308 

44 PSET (RNDC1)¥*126.RNDC 
13*32) 

S@ HEXT A 

66 IF POINT ¢RNDC19*120, 
RHDC19*329=1 THEN SOUND 
RHD¢19*38. 1 

7H GOTO 66 


LINE is used to draw a Line between two points. It 
can produce quite interesting displays, as_ this 
program illustrates: 


i6 REM RUSTONIAN 
TRIANGLES 
28 CLS 
38 L=RNDC1)*120 
48 M=RMDC1)*32 
5@ N=RMDC12%*1208 
68 O=RNDC1)*32 
7B P=RNDC12*1208 
SH P=RHDC1>9*32 
98 A=RNDC 194" 
184 B=PNDC1)*3 
118 C=PNDC19*3 
126 D=FNDC1>*3 
136 E=RNDC1>*5 
14@ F=RNDC12*3 
156 LINE ¢L,M>-¢H-L,O-M> 


> PSET 
168 LINE ¢L,Mo-<P-N;Q-O3 
-PSET 


1f@ LINE “N-L,>O-M)-¢L-P, 
H—-O,PSET 
130 FOR K=1 TO 1@@!HEXT 
198 IF L+As31 OR L+A<@ T 
HEM A=-A 
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E86 IF M+B>31 OR M+B¢8 T 
HEN B=— 

216 IF H+C?31 OR H+C¢6 T 
HEH .ct=-C 

220 IF O+0231 OF G+D<a T 
HEH D=-D 

238 IF P+E23i OR P+E<a@ T 
HEN E=-E 

S49 IF O+F231 OF A+F<a@ T 
HEN F=-F 

258 L=L+A:M=M+B 

H=H+C: 0=0+0 

P=F+E: Q=0+F 

E88 CLS 

238 GOTO 158 


COLOR 


This determines which colors will be shown on the 
external display. The command follows the format 
COLOR a, b, c where a, b and c must be in the range 
0 to 3. Although there are eight colors which can be 
produced, the computer can only generate four at 
once. In the statement COLOR a, b, c the a specifies 
the foreground color, the b the background and c the 
color set. There are two color sets, each of which 
can produce four colors. 


In color set O (i.e. whenc is 0), the following 
colors can be produced: 


0 - green 
1 —- yellow 
2 — blue 
3 - red 
In color set 1, you can get these colors: 
0 - white 
1 - cyan 
2 — magenta 
3 - orange 
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The HX20 defaults (warm start) to color set 0, with 
a foreground color of 1 and background color of 0. 


This means you will get yellow writing on a green 
background. 


MORE COMMANDS 
LOCATE 


This is a very useful command, which moves the 
cursor to the position of your choice on the virtual 
screen. The word LOCATE is followed by two numbers, 
separated by a comma. The first number is_ the 
horizontal co-ordinate of the cursor, while the 
second is the vertical co-ordinate. A_ third 
parameter may follow the vertical co-ordinate. If 
this third number is 0, it turns off the cursor, 
while a 1 will turn the cursor on. 


CSRLIN 


This returns the vertical position of the cursor on 
the virtual screen. 


LOCATES 


LOCATES is used to specify the position of the 
physical screen, moving it so that its upper left 
hand corner is in the Location on the virtual screen 
specified by the two numbers which follow the word 
LOCATES. It is used in the form LOCATES n,m where n 
is the horizontal co-ordinate, and m the vertical 
one. 
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SCROLL 


This command controls the rate and direction of 
scrolling. It takes the form: 


SCROLL n,m,p,q 


In this Line, n controls the speed with which the 
LCD screen scrolls (the external display scroll 
speed is fixed). 


The next one, m, must be in the range O to 9, with 
the higher digits indicating higher speeds. The 
second parameter, m, is the scroll mode. It must be 
0 or 1, with O Locking the screen at the Left hand 
end of a Line. Mode O will prevent the screen’ from 
moving 'sideways', even if the cursor moves far to 
the right, going off the screen. Mode 1 instructs 
the physical screen to follow the cursor. 


The third parameter, p, is the scroll step size in 
characters. This is used for moving the screen right 
or Left, when the CTRL key and one of the arrowed 
keys (above the RETURN key on the right hand side of 
the keyboard) is pressed. It must Lie between 1 and 
20 for the LCD and between 1 and 32 for an external 
display. 


The final parameter, q, controls the number of Lines 
which will be scrolled up or down when CTRL and P or 
CTRL and Q are pressed at once, or when the _ key 
marked SCRN (second from the right, on the top row) 
is pressed. The value for q must Lie in the range 1 
to 4 for the LCD and from 1 to 16 for an _ external 
display. 


When you turn the computer on (warm start), it will 
be set as follows: 


SCROLL 9,0,10,4 (LCD) 
SCROLL 9,0,16,16 (external screen) 


WIDTH 


This command can be used in two ways. We will Look 
at each in turn. 


WIDTH "LPTO:",n 


The LPTO means the width of the output to 
the printer. The digit n must be within the 
range 1 to 255. The computer usually 
outputs 24 characters to the printer. Ifn 
is set to 255, the HX20 interprets this as 
a command not to send any automatic Line 
feed commands. 


WIDTH "COMO:",n 


This controls the action of a printer 
connected to the RS-232C port. When you 
first turn the computer one (warm start), n 
is set to 80. 


Try the following program: 
16 REM PRINTER WIDTH DEM 
8) 


2@ INPUT "ENTER A NUMBER 
<24"5A 

30 IF A<1 OR A>24 THEN 2 
@ 

44 WIDTH "LPT@I".A 

S@ LLIST 

64 RUN 
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Here's what it produces when a value of 20 is 
entered for A in Line 20: 


1@ REM PRINTER WIDTH 
DE 


MO 
26 INPUT "ENTER A NU 
MBER <24"5A 
36 IF A<1 OR A>24 TH 
EN 28 
4@ WIDTH "LPT@:";A 
34 LLIST 


POS 


This function tells you where the cursor (or printer 
head) is across a Line. POS is used ina Line by 
setting a variable equal to POS, where the word POS 
is followed by a number from O to 16, in 
parentheses. 


If you use the statement A = POS (0) you'Ll get a 
number indicating the position (Cin number’. of 
character widths) of the cursor across the virtual 
screen, or of the print head across the paper. When 
the zero is replaced by any number between 1 and 16, 
you're told the number of (a) characters printed in 
the current Line, plus the number of characters 
stored in the buffer which have not yet been 
printed. 
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CHAPTER FOURTEEN — SOME HANDY EXTRAS 


We have come a Long way in the short time we've been 
working with the Epson. If you've been saving the 
programs as you go along, you'Ll have started to 
build up quite a worthwhile Library. Now is the 
time to start looking at computer magazines for 
programs written for other machines which you can 
adapt to your HX20. You'Ll be pleased to see how 
easily most of them can be converted to run on your 
computer once you alter the program's output to fit 
the HX20's screen. In this chapter, we'Ll be Looking 
at some extra commands which you should find useful. 


AUTO 


This command is a handy one when you're writing 
programs, or entering them direct from a_ Listing. 
It generates Line numbers automatically, producing a 
new one each time you press ENTER. If you just enter 
AUTO, and then press ENTER, the Epson will assume 
you want to program in steps of 10, with the first 
Line numbered at 10. Try it now, by typing in AUTO, 
then pressing ENTER. Follow this with a _ program 
Line, press ENTER again, and you'Ll see 20 generated 
for your second Line. 


If you do not want to start with 10, and/or you do 
not want your Line numbers to increment in tens, you 
need to follow the command with one, or two numbers. 
AUTO 25, 36 will start numbered at Line 25 and 
increment the Line numbers by 36 (so the Line number 
sequence will be 25, 61, 97, 133 ...and so on). If 
you do not specify a second number (so your command 
is AUTO 20,) but the first number is followed by a 
comma, the Last value used for the increment will be 
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used in this case. If the command does not _ have 
either a second number, nor a comma (AUTO 35) then 
an increment of 10 will be provided, starting the 
first Line number at 35. 


You can get out of the AUTO mode by pressing BREAK. 


If you already have some Lines written in a program 
before you go into AUTO, you may — from time to time 
- discover that the automatically generated Line 
number is the same as a number already in the 
program. In this case, an asterisk will be printed 
after the Line number. If you want to overwrite your 
original Line, keep programming as normal. If you 
wish to keep your original Line, press RETURN. The 
original Line will remain in the program, and _ the 
next Line number in the sequence will be generated. 


FRE 


This is used to tell you how much memory you have 
left. PRINT FRE(n), where n is any number, will 
return the number of free bytes. Take note, however, 
that programs need working space, and that arrays 
consume memory. Run the next program to show the 
"‘memory-eating' effects of dimensioning an array: 

i@ PRINT FRE*1>) 

28 DIM AC2680> 

SA PRINT FRE*1> 
If the FRE is followed by a string, the command 
returns the memory Left in the BASIC string area, as 
the following program shows: 


1@ PRINT FREC1) 
28 PRINT FRE* "WORD" > 
38 PRINT FRECA$> 
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SOUND 


You've probably picked up how the SOUND command 
works by now. It is pretty simple. The command 
SOUND is followed by two numbers. The first defines 
the pitch of the note to be made, and the second its 
duration. 


The pitch number may be from zero (a 'non-note' or 
pause) to 56 (the highest note). The duration can be 
from zero to 255, where each number represents’ one 
tenth of a second (so 2 represents a duration of 
2/10ths of a second, and 10 equals one second). 


If you run the next program, you'll hear’ what 
appears to be the same sequence of notes played 
twice, even though we only go through the Loop (1 to 
56) once: 


16 FOR A=1 TOU 56 
26 SOUND A>1 
38 HEX 


It sounds as if the sequence has been played twice 
because, for reasons best known to themselves, the 
designers of the Epson decided that a series of 
notes would be produced by the numbers 1 to 28, and 
then the notes which are half a tone higher’ than 
these would be represented by 29 through 56. That 
is, note 29 is just half a tone higher than note 1, 
while note 2 is half a tone higher than 29. If you 
find this confusing, you may prefer just to work 
with the notes from 1 to 28. 


Here's a very short program which can be used at any 
time when you wish to demonstrate your computer. It 
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produces 
‘electronic music': 


If you want to use 
enter and run the following program. 
of keys is used as 


Here 
rhyme: 


is 


a 


cheerful, 


the 


randomLy-composed piece of 


1@ SOUND RNDC19*56,RND¢1 


ae 


24 GOTO 18 


19 At= 
2H IF 


the piano keyboard: 


INKEV$ 

AS<>"2Z" AND ASS >"X 
ASS >"C" AND AS<>"L 
AS<>"B" AND AS<>"N 
AS<>"N" AND AS<>"M 
Ag<>"," THEN 16 
AS="2" THEN SOUND 
AS="%" THEN SOUND 
A$="C" THEN SOUND 
AS="U" THEN SOUND 
AS="B" THEN SOUND 
AS="N" THEN SOUND 


AS="M" THEN SOUND 


ae IF A¢="," THEN SOUND: 


8 
18 PRINT "st", 
24 GOTO 16 


"‘music' to play a well-known 


your computer as a kind of piano, 
The bottom row 


nursery 


SWAP 


This command is used to exchange values between’ two 
variables. That is, if A equals 10 and B equals 99, 
SWAP A,B would make A equal 99 and B equal 10, as 
this short program illustrates: 


10 A=INTCRND¢1)*18> 

28 B=INTCRND¢12*10) 

3@ IF A=B THEN 26 

44 PRINT "BEFORE SAP: " 
Ss PRINT "A="3AS 


68 PRINT " ="5B 

7@ PRINT "STAND BY FOR 3 
WAP" 

8@ FOR T=1 TO 5@6: NEXT 
98 SWAP ALB 

148 GOTO 56 


SWAP can also be used on strings, as you can see 
from this routine: 


16 A$=CHRFCINTCRND¢ 19%*26 
9+653 

28 BS=CHRSCINTCRND®« 19*26 
+69) 

38 IF At=B THEN 28 

44 PRINT "BEFORE SWAP: " 
SH PRINT "AS="SAS5 

68 PRINT " BS="3BS 

7@ PRINT "STAND BY FOR S$ 
iAP" 

8@ FOR T=1 TO 5@@! NEXT 
99 SWAP AS, BE 

1a@ GATO 56 
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ATN 


This function returns the arctangent and is used in 
the following form: A = ATN(n). It returns an answer 
in radians and works within the range minus’ pi/two 
to pi/two. 


cos 

This function returns the cosine and is used as 
follows: C = COS({n). It returns the answer in 
radians. 

SIN 


This function is used to get the sine of an angle, 
and is used in the following form: S = SIN(n). This 
also returns the answer in radians. 


TAN 


The tangent of a number of returned by this 
function, used as follows: T = TAN(n). Again, the 
function returns an answer in radians. 


MOD 


This function returns the remainder of a division. 
for example, 24 MOD 5 will return 4, because 4 is 
the remainder when 24 is divided by 5. The form of 
the command is n MOD m and the function returns the 
remainder when n is divided by m. 


This program shows a few examples of it in use: 
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18 INPUT "FIRST HUMBER"S 


H 

24 INPUT "TO BE DIVIDED 
BY u H M 
3@ PRINT N3"-"sMs" IS"5N 
pau 

4@ PRINT Ni "MOD"SMs"IS"s 
MH MOC M 
58 FOR J=1 TO SQ: NEXT 
66 RUN 

B76 7 9 IS 97. 3333 
876 MOD 9 15 3 

22" 7 8 3. 14286 

22 MOD ? 15 1 


HEX$ and OCT$ 


HEX$ is used to change numbers from decimal form 
into hexadecimal form (that is, to base 16). The 
number is always given as a string, as follows: A$ = 
HEX$(nnnnnn). This short routine shows it in action: 


1@ REM HEX demo 
2A CLS 
38 INPUT "Enter a number 


4@ PRINT “Your number is 
"SN 

SQ H$ = HEX$¢ND 

60 PRINT “which is "tH 
7@ PRIHT "in hexadecimal 


3a PRINT 


36 GOTO 3@ 
Your mumber is 12 Your number is 32676 
which is C which is ?FA4 
in hexadecimal in hexadecimal 
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Note that the number must be in the range — 32768 to 
65535 or a function call error will occur. 


OCT$ works in the same way as HEX$, except that it 
returns a number to base eight, rather than to base 
16. 


LOG 


This function returns the natural Logarithm of a 
number, and is used in the form A = LOG(n). 


TRON/TROFF 


This pair of commands is used to turn a= program 
tracer off and on. TRON is, naturally enough, 
TRacer ON, and TROFF is TRacer OFF. When you put 
the computer in the TRON mode (simply by typing 
TRON, then pressing RETURN, or by including it as a 
Line in your program) and execute a program, you'll 
find the program will run as normal, exceot that the 
current Line number being executed will be displayed 
on the screen within square brackets. TRON is 
designed to help you detect bugs within a program. 
You'll find it slows program execution down some— 
what, so only use it in the debugging stage. 


TROFF turns the tracer off. It can be _ entered 
directly or may be included within the program. NEW 
— or turning the computer off — will also disable 
TRON. Next time you have a program in your HxX20, 
enter TRON to see the tracer in action. 
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DAY 


You can set your computer to hold the day of the 
week as a number from 1 to 7. Number 1 can be set to 
any day which you find convenient so it can be used 
to trigger real time reminders within a_ diary 
program. 


In such a program, it is easy to work out’ what 
number the current day is, counting from the day you 
have designated to be 1. For example, if you 
wanted Monday to be DAY 1, and today was Wednesday, 
you'd enter DAY = 3. 


This is very useful for a 'memory tickler' program 
which you can store, and amend, under a TITLE. 
Then, you can just trigger this diary, and it will 
automatically print out on the printer, or _ the 
screen, what you need to do that day. 


Here is the start of such a program: 


1@ REM REAL TIME DIARY 
28 ON DAY GOSUB 1000, 200 
4, 3000; 4600, 5000, 6860, 7a 
v5 


38 END 
1986 REM MONDAY ¢MONDAY 
= 1) 


191@ LPRINT "CHECK LAST 
WEEK*S SALE FIGURES" 
182@ LPRINT "PHOWE HQ FO 

R THIS WEEK’?S TARGET" 
1939 LPRINT "AMEND PRINT 
SCHEDULES ACCORDINGLY" 
1999 RETURN 

2988 REM TUESDAY 

2416 LPRINT "MEETING WIT 

H ADMIN STAFF AT 18 AM" 
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2826 LPRINT "CHECK ON PR 
OGRESS RE JOHNSON ACCOLIN 
BD 

2036 LPRINT "CHECK RE DI 
RECTORS MEETING, THURSDA 


ye 


2999 RETURN 
3666 REM WEDNESDAY 
3814 REM...AND SO ON... 


3020 REM ..ceeee 


I happen to be writing this on a Tuesday. I set DAY 
(with Monday equal to one) when I first bought the 
HX20, so — if all is well — it should still be 
current. I can test this by entering PRINT DAY, and 
I get a return of 2. The DAY counter is working. 
When I trigger RUN, the computer prints out’ the 
following: 


MEETING WITH ADMIN STAFF 
AT 1@ AM 

CHECK ON PROGRESS RE JOH 

HSON ACCOUNT 

CHECK RE DIRECTORS MEETI 

NG» THURSDAY 


As you can see from the Listing, there are 999 
possible storage spaces for each day, more than you 
are ever Likely to need. You can easily add extra 
information for a particular day (you can find the 
current highest line number being used ffor, Say, 
Wednesday, by entering LIST - 3999 and place your 
next item one more than the Line number which was 
used before 3999) or delete it once the need for the 
item has moved. 
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DEF FN 


This very useful programming tool enables you to 
define a function which can then be used throughout 
your program. 


Suppose the program demanded the production of 
random numbers in various ranges from time to time 
during execution. You could create a_ function, 
called R, to produce random numbers in the range 1 
to X, as follows: 


18 DEF FN R¢2>= INTCRNDC 
19*K + 13 
28 INPUT "ENTER A NUMBER 


3X 
38 Z2=FN RCX) 
44 PRINT 2 
34 GOTO 26 


The function may contain one (as above) or more 
variables. The following forms are valid: 


DEF FN A (P,Q) = P¥*2 + SQR (Q) 
DEF FN A (Z$) = INT (LEN(Z$)/2) 
DEF FN A$(Z$) = RIGHTS (Z$,2) 


The DEF FN Line must be passed over in_ program 
execution before a function call is made, as is 
demonstrated by the next program, which is a 
variation of the previous one to generate random 


HOMBe res 10 GOSUB 68 
20 INPUT “ENTER @ NUMBER 
Mes 
38 2=FN ROX) 
48 PRINT Z 
58 GOTO 20 
69 DEF FN R¢Z)= INTCRND¢ 
Lex + 1) 
7@ RETURN 
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DEFINT, DEFSGN, DEFDBL, DEFSTR 


The DEF command, followed by INT, SGN, DBL or STR as 
above, allows you to define the kind of variables 
you want in- a program. DEFINT A - Z is used to 
ensure that all variables used within the program 
are integer variables. This ensures that the prog— 
ram runs as quickly as possible. The computer 
handles integer variables more quickly than it does 
‘floating point' variables. 


DEFSNG determines that variables will be _ single 
precision, that is, accurate to eight and a half 
decimal places. DEFDBL ensures the variables are 
double precision, that is they will hold numbers 
correct to fifteen and a half decimal places. The 
computer defaults to single precision. 


DEFSTR declares that the variable names beginning 
with the Letters which follow the DEFSTR will be 
string, rather than numeric, variables. Such 
variables do not have to be followed by a dollar 
sign, but must be treated within the program as if 
they did. This means, for example, that if you had 
declared A as a string variable, you could not 
include A/2 Later in the program without generating 
a T (type mismatch) error. 


The range of letters which is covered by the dec-— 
laration is determined by the Letters following the 
DEF... If, as in CHESS and CHECKERS, we use DEFINT 
A- Z, it ensures that all variables will be integer 
variables. If you just want variable names 
beginning with a single Letter to be variables of a 
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specific type, follow the declaration with that 


letter: 
DEFDBL Q 


For a range of letters, separate the two Letters 
which Lie at the extremes of the desired range with 


a hyphen: 
DEFINT P — R 


If you want to have two or more variable 'groups', 
separate the hyphenated pairs with commas: 


DEFDBL A-C, P-R, X-Z 


The computer treats all variables as single 
precision unless otherwise intructed. 


19 FRIWT 8-7 

28 DEFSNG A - 2 
36 2= B77 

49 PRINT 2 

5@ DEFOBL A - 2 
68 2=8-7 

74 PRINT 2 


1. 14286 
1.14286 
1. 142857193946838 


19 DEFSTR A-Z 
28 A="SAUSAGE" 
34 PRINT A 
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PRINT USING 


The variations of PRINT USING enable you to control 
the kind of PRINT (and LPRINT) output produced by 
your HXe20. 


The general form of the command is PRINT USING 
"##ti"S A,B, where each # represents a_ digit 
position. Each of these must be filled when a number 
is printed. If there are not enough digits, spaces 
will take the place of the missing digits. 


When dealing with string fields, the following 
characters effect the final output: ! \ and &. With 
numeric fields, the characters are #, . (decimal 
point), +, -—, **, $$, **$, ,{comma), ““**, _ and %. 


The easiest way to understand them in action’ is to 
study the output of the following program. Run it 
several times, entering different strings, and 
numbers, until you understand how you can control 
the output so it is exactly as you want it to be: 


19 REM Demo of PRINT USI 


24 INPUT "Enter a strings 
"Sis 
38 INPUT “and now a numb 


Bn Wig? 
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46 gN=- 2 
28 CLS 


64 PRINT "Your string is 
"SZ 


@ PRIHT "Your number is 
"SZ 


&4 PRINT "! "sy 

28 PRINT USIHMG "'"32¢ 
188 PRINT "ss "3 

11a PRINT USING "s NUS 


124 PRINT "& "3 

138 PRINT USTHG "&"32$ 
ida PRINT "# "3 

i569 PRINT USIHG "#'"32 
PRINT "## "5 


+ 
fan 
& 


iPS PRINT USING "##"s2 
1S8 PRINT "### "s 

135 PRINT USING "###"s2 
She PRINT "i. $F "s 

219 PRINT USING "#. ##"s2 


S25 PRINT "+#H#. #4 "5 


230 PRINT USING "+###. #8 
#"9Z 


248 PRINT "##. ##- "5 
258 PRINT USTHG "##. ##-" 


mo 


S65 PRIHT "bt, ## Ms 
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Here's 
HxXe20: 


Now that you've seen PRINT USING in action, 


one 


a PRINT USTHG ‘OHH. #H" 


PRINT "SE. ## 0": 
8 PRINT USING "Soa. ##" 
SOG PRINT "KES HR" 
S18 PRINT USING "ks, #4" 
S38 PRINT "$$#._- "3 
338 PRINT USING “$4. _—" 


result of running that program on 


Your strings is HARTHELL 
Your number 1s 1224.57 
iy 
: HARTH 
& HAR TNELL 
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“81234. 57 


4+1234. 578 


"$1234. 57 
“E1235. - 


the 


you'LL 


probably be able to think of a number of ways it can 
be used to improve the output of your’ programs. 
an exercise, you could try making use of PRINT USING 
within the programs in the business chapter (chapter 
12, starting on page 164). 
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As 


USR 


USR is used to call a machine Language routine which 
has been previously defined by the DEFUSR statement. 
The letters USR are followed by a digit in the range 
0 to 9 (referring to one of the maximum of ten user- 
defined functions, and assuming USR 0 if no digit 
is specified) and then an argument (by which you can 
transfer a value from BASIC to your machine Language 
subroutine). 


MEMSET 


MEMSET is’ followed by an address in hex which is 
used to specify the Lower Limit of memory for use by 
the BASIC program, and to set the memory Locations 
for your machine Language programs. The value of 
MEMSET defaults to SHOASF. 


EXEC 


This command is used to start the execution of a 
machine Language subroutine. It is followed by the 
start address of the subroutine. 


MOTOR 


You use this to turn an external cassette recorder 
on and off. If the word MOTOR is not followed by 
either the words ON or OFF, the command will reverse 
the current state of the recorder. That is, if the 
cassette recorder is currently on, MOTOR will turn 
it off. MOTOR can be used within a program. 
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CDBL 


This changes integers, and single precision numbers 
into double precision numbers, but without changing 
the number of significant digits. A hex number must 
be prefixed by &H, an octal number by &. 


CINT 


CINT, followed by a numeric expression in 
parentheses, as CINT(4/2*n), converts that 
expression, if it would otherwise be a single or 
double precision number, into an integer. The value 
of the numeric expression must between -32768 and 
32767. 


CSNG 
CSNG, as you've probably guessed from the above, is 
used to change integers and double precision numbers 


into single precision ones. The conversion is done 
to six significant figures. 


FIX 


FIX returns the truncated integer part of a numeric 
expression which follows the word FIX. 


ON ERROR GOTO 


This command is followed by a Line number, to which 
the program will branch, if there is an error in the 
program rather than stopping and displaying an error 
message. You can disable the error-trapping 
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completely by including the Line ON ERROR GOTO O at 
the beginning of your program. 


The variables ERL and ERR are used in_ connection 
with returning error messages. ERL stores the Line 
number where the error occurred, and ERR stored the 
error code. 


RESUME 


RESUME is used after the program has stopped because 
of some error. If RESUME is used by itself, program 
execution will continue on from the Line where the 
error occurred. RESUME NEXT will start at the Line 
after this one. As an alternative to these, you can 
following RESUME by a Line number, and _ execution 
will start from this number. 


VARPTR 


This is followed by the name of a variable in 
parentheses and returns the address of the variable 
or the array which is specified by the name. 


PCOPY 


This command allows you to copy a program from the 
workspace into a specified program area. The command 
is used in the form PCOPY n where n refers to. the 
target program area and is a number from 1 to 5. 
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The HX20 will refuse to accept the command if you 
have no program in the workspace or if there is a 
program in the target area (either of these 
conditions will give rise to an FC- - illegal 
function call — report), or if the target area is 
not big enough to hold the initial program (when 
you'LL get an OM — out of memory - report). PCOPY 
will not work in any of these conditions. 
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CHAPTER FIFTEEN — PLAYING GAMES 


We will take a break now from the serious side of 
the computer, and have a Look at a game of Checkers. 
you'LL find that the computer plays a fairly swift 
(if not exactly inspired) game, following the 
standard rules. 


I suggest you use an external board, such as the one 
printed earlier in this book for use with Reversi, 
and make both your moves, and those of the computer, 
on the board. It is rather difficult to see _ the 
computer's moves, and to work out the best moves of 
your own, relying only on the built-in screen. 


If, however, you decide to depend on the internal 
board (as I do when playing this game against the 
HX20 on board a plane), you'Ll find the program can 
help you in two ways. Firstly, you can get the HX20 
to reprint the board at any time, by entering O when 
asked for your move. You can also get the computer 
to dump the current state of the game onto the 
printer. The output of the printer Looks Like this: 


12245673 


ho ta Ono 00 
L_ | 
i 
| 
bata on 00 


12345678 


You get the computer to dump the current board to 
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the printer by entering "1" when asked for your 
move. If you wish to set up a board of your choice, 
perhaps giving the computer an advantage at the 
start of a game, or to give yourself an advantage, 
you enter "2" when asked for your move. 


Your moves are entered as two numbers, a_é‘'from' 
number and a 'to' number. You work out the number of 
the piece you want to move by entering the number 
down the side, then the number across the top of the 
board which refers to the square on which your piece 
is resting. You do in response to the prompt 
"FROM?" Having done this, the computer will prompt 
"TO?", You then enter the square you're moving to. 
If you're capturing, the computer will make the 
move, then print up the prompt "AGAIN (Y, N)?". You 
enter "Y" if you can jump again, and you'Ll be asked 
"TO?" The computer, of course, knows which square 
you're moving from. 


It makes it multiple jumps automatically, reprinting 
the board after each move. You'll find it quite 
fascinating to watch the computer in action, as it 
prints on the screen all the moves it is consider- 
ing. If it finds a move which it considers is quite 
a good one, it will make a beeping sound, and put 
the number of that move (it counts the good moves as 
it finds them) on the screen. Then, it will either 
capture if it can, or make one of the good moves. 


The hierarchy of moves considered by this program 
are: 


—- can a capture be made? 


- can an ordinary piece be transformed into a 
king 
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- can a move be made which does not place the 
moved piece in danger 
- can a Legal move be made 


The computer scans the board, square by square, 
starting from the top Left hand corner. If it finds 
a possible capture, it makes the move, not consider- 
ing any alternatives. If it discovers a move which 
it can make which does not expose the moved piece to 
danger, it will store that move in the 'safe move 
repository’ (which we'LL discuss shortly when going 
through the program). 


If no capture is found, the computer checks to see 
if it can promote a piece to king. If it finds it 
can, it makes this move. If such a move cannot be 
made, the computer returns to the 'safe move 
repository' and chooses a move at random from the 
stored moves. This ensures that the computer will 
not play the same game twice in a row. If no safe 
move is found, the computer chooses up to 300 moves 
at random, Looking for a Legal one. If it finds such 
a move, it makes it. If not, it concedes the game. 
The contest continues until either you, or the comp- 
uter, manage to capture all of the opposing player's 
pieces. 


Once you've entered your program into the computer, 
and played a few games, return to the book for a 
discussion on the contents of the Listing. 


18 REM CHECKERS 

SB CLS:PRINT'Press seace 
ar” 

PRTAT "to besin' Hea 
4a H=eH+iiTF IMKEY#=""" TH 
EM 4h 


+r 
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28 RAMDOMIZE WiSoQuMD 5.5 
60 IF N>59 THEN H=H2: G0 
TO8e 

rea SOUND N.4 


Ba GOSUB 1a7a 

39 REM DELETE NEXT LINE 
TO PREVENT H¥2@ FROM 
HAVIHG FIRST MOWE 

1aa BOTO 178 

114 =) = 


Sm MS 
ms) Wt Ts Wh 


IF BeAr so AMD BCA 
. THEM 238 

( BSE IF AC2OI THEN B=2 
B=E+1 

M=AtHE BD 

. IF M35m OF M<11 THEN 


BND feM4he BY SE sie 


IF GCM>=E THEN IF <a 


 OeM+L LSC OR CMLL 
y AND GCM+119< HK THE 


HD Bed) THEN 218 
adit THEN 18 
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308 IF FL=1 THEN 650 
318 GOTO 508 

328 QCM+N(B) >=Q(A)QCMD= 
E:Q¢(A=E 

33@ PRINT! PRINT EO 
FO HORII IK a 

348 PRINT"From"sAs "to" 
+N(B):SOUND 1,5:FOR T=1 
TO 5@0:NEXT 

35@ FORQ=1T04:PRINT TABC 
2*Q)3 "Got you! "FOR T=1 
TO 2@0:NEXT: SOUND 5*0,.5 
= NEXT 

360 CO=CO+1 

37@ GOSUB 680 

386 A=M+NCB) 


410 IF CA+2*N(B><11 OR A 

+2*N(B>>88> AND B<4 THEN 
400 

426 M=A+N(B> 

4386 IF Q¢M>=C AND B>3 TH 

EN RETURN 

440 IF CQ¢M>=H OR OCMD=H 

K> AND Q¢CM+NCB)>=E THEN 

328 

456 IF Bé2 OR “QCA X=CK A 

ND B<4) THEN 468 

468 RETURN 

47@ IF SC<1@ THEN SC=SC+ 


1 

48@ PRINT ."*"5SC: SOUND 
3*SC, 1 

498 S(SC)=1904A+B+20: RET 
URN 

306 IF SC=@ THEN 55@ 
519 XC=INTCRNDC1>*SC)+1 
528 A=INTCSCRCO) 7106) 

538 M=AtN(SCXC)-10G*A-29 
) 

348 GOTO 6548 

55@ SC=SC+12A=INTCRNDC1) 
#*38)+1 
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566 IF Q¢A<>C AND QCAD< 
>CK THEN 630 

578 B=8 

3886 B=B+1 

398 M=A+NCB> 

660 IF M>88 OR M<11 THEN 


620 
610 IF Q¢M)=E THEN 650 
620 IF Bé2 OR QCAD=CK AN 
Db B<4 THEN 58a 
630 IF SC<300 THEN 55a 
64@ PRINT :PRINT"I conce 
de the game":END 
658 OcCM)=QCA QC AI=E 
668 PRINT “Goo OKC IOKK 
OHAK "SPRINT" From" sas "t 
o'sM:SGUND?,5:FOR T=1 TO 
1906: NEXT 
678 RETURN 
680 CLS 
690 PRINT "HX2@>"3CO;" ¥ 
OU>"$ HU 

786 SOUND RND¢309+28,0.5 
718 PRINT TABC633 "123456 


72@ FOR F=86@ TO 16 STEP- 


73@ PRINT TABC393F-183 
746 FOR G=1 TO S:PRINT C 
HR$CQCF+G) 95 ¢NEXT 

758 PRINT F418:NEXT 

768 PRINT TABS633"123456 
vr@ IF CO=12 OR HU=12 TH 
EN 730 

780 RETURN 

736 IF HU=12 THEN PRINT: 
PRINT "You have won"!PRI 
NTIPRIHT"Consratulations 
'" SEND 

300 PRINT: PRINT"I win... 
"PRINT: PRINT"Thanks for 
the game": EHD 
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816 REM 99 TO CONCEDE 

826 REM @ TO REPRINT 
BOARD 

836 REM 1 TO LPRINT 

BOARD 

340 REM 2 TO SET UP OWN 

BOARD 

856 INPUT"FROM"SA 

26@ IF A=99 THEN PRINT " 

Thanks for the":PRINT"ga 

me... "SEND 

27@ IF A=1 THEN GOSUB 13 

58@:GO0TO 858 

886 IF A=@ THEN GOSUIB 68 

@:GOTO 856 

2960 IF A=2 THEN GOSUB 14 

68:60T0 85a 

908 INPUT"TO"SB 

916 OCB =Q¢CA2 2 QCAD=E 

32@ FOR T=11 TO 17°IF Q¢ 

To2=C THEN Q¢T3=CK 

930 NEXT 

3946 FOR T=82 TO S8:IF a¢ 

T2=H THEN GC T?=HK 

958 NEXT 

960 IF ABSCA-B><12 THEH 

RETURN 

976 TY=RNDC1 > 

986 IF TY<.3 THEN FRINT: 

PRINT"Good move" 

3996 IF TY>.? THEN FRINT: 

PRINT"Got me!" 

1868 HU=HU+1:Q¢ (A+B 7295 

E:GOSUB 688 

1416 FOR T=82 TO 88:IF Q 

CT2=H THEN @¢T>=HK 

182@ HEXT 

1436 PRINT: IHPUT "AGAIH 

CY, N's At 

1440 IF agi>"¥" AND AF<> 

"4" THEN RETURH 

1854 GOSUB 638A 

1866 A=B:GOTO 364 
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1876 CLS 

1086 H=435 HK=75: C=42: CK= 
PSIE=32!B=148 

1898 OF=-99:DIM Q¢99),N¢ 
4),$¢18) 

1180 FOR M=1 TO 99°5Q¢MD= 
OF? NEXT 

111@ FOR mM=1 TO 64 

112@ READ D:READ G 

1138 Q¢D>=G: NEXT 

114@ DATA 81; 148,82,42,8 
32146, 84,42, 85,148; 36,42 
7372148 

1156 DATA 88:42,71242,72 
> 140,73:42,74; 146, 75,42, 
76,140 

1168 DATA 77:42,78, 140.6 
1: 148,62, 42,63, 146;64,42 
117@ DATA 65> 14@166,42,6 
72140, 68,42, 51532, 52; 146 
118@ DATA 53>32,54; 144,5 
232256. 148, 57, 22, 58; 148 
1196 DATA 41: 146,42,32,4 
23> 140, 44,32, 45, 140; 46,32 
126@ DATA 47; 140,49,32,3 
143,32, 140,33; 43, 34,1408 
239:43 

1218 DATA 36; 14@,37:43,3 
8» 14@, 21,146. 22,43, 23,14 
HH, 24,43 

1228 DATA 25, 148,26,43,2 
P2146, 23,43, 11543,12; 1448 
213:43 

123@ DATA 14:146,15,43.1 
6,146, 17>43,13,148 

124@ FOR M=1 TO 4:READ H 
CM)? MEST 

1256 DATA -11--9,11,3 
1268 CO=6: HU=8: RETURN 
1278 IF @¢225=C AND C11 
9=E THEN A=225M=11=5FL=15 
RETURN 
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128@ IF Q¢22>=C AND Q¢13 
2=E THEN A=2Z:M=13:FL=1: 
RETURN 

1298 IF Q@¢24)=C AND Q¢13 
2=E THEN A=24:M=13:FL=1: 


RETURN 

13@@ IF Q¢24>=C AND QC15 
.=E THEN A=24:M=15:FL=1: 
RETURN 

1316 IF Q¢26>=C AND QC15 
.=E THEN A=26:M=15:FL=15 
RETURN 

132@ IF Q¢26>=C AND Q¢17 
Y=E THEN A=26:M=17:FL=15 
RETURN 

133@ IF Q¢28>=C AND Q¢17 
.=E THEN A=23:M=17:FL=1: 
RETURN 

1340 RETURN 

135@ LPRINT TABC7>3 "1234 
5678" 

1360 FOR F=80 TO 10 STEP 
-18 

1370 LPRINT TABC4)3F 7165 
13880 FOR G=1 TO 8 

1398 LPRINT CHR$(Q¢F+G)) 
3 = NEXT 

14@@ LPRINT F710: NEXT 
1418 LPRINT TABC7)3 "1234 
5678" 

1426 FOR T=1 TO 4:LPRINT 


: NEXT 

1430 RETURN 

144@ REM CREATE A BOARD 

1456 REM The McKinna 
Option 

1466 INPUT“Which square" 

s2:IF 2<11 OR 2>88 OR AC 

Z2)=-99 OR Q¢Z2=14@ THEN 

1466 

1476 PRINT"Which piece?" 
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1486 PRINT "E - emety =9 
Ware" 

1496 FRINT "C - come. H 
— human" 

1566 PRINT "CE - come. k& 


151@ INPUT "HE - human k 
ina"s4¢ 

15 2H DES I=—-42eC KSSH" CO" 5-4 
as $= Wan 5-7 5KCKS= "hi: Ve 
Fok CSS "CK" S324" CKE=S"E"5 
1536 GOSUB 6c 

154@ PRINT "Enter P to F 
lay" 

1556 PRINT “or C to cont 
inue" 

1566 IMPUT "to change bo 
ard"s Ae 

1578 GOSUB 638 

158@ IF 8#="F" THEN RETL 
FN ELSE 1468 
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HOW THE PROGRAM WORKS 


We'LL now go through the program, Line by Line. 
Following through this explanation should give you 
an insight into (a) board game algorithms; (b) 
checkers' agorithms in particular; and (c) several 
programming techniques. Not only should your 
programming skills improve as a result of studying 
this material, but you should get a number of ideas 
you can apply to your own programs. 


Line 10 Labels the program, and line 20 clears’ the 
listing off the screen, and asks the player to 
"Press space bar to continue". In fact, just about 
any key would do at this point, but players seem to 
respond better to specific instructions than to 
things Like "Press any key to continue". As _ well, 
there are some keys (such as NUM) which will not 
work at this point. 


The last part of Line 30, plus Line 40, turns the 
time it takes the player to press the space bar into 
a number which is used to seed the random number 
generator. The variable N is set to O at the end of 
Line 30, and 1 is added to this at the beginning of 
Line 40. The computer then checks to see if a key is 
being pressed, and if not (that is, if INKEY$ equals 
"") it goes back to the start of Line 40, where 1 is 
added to the value of N. 


If the computer does find a key is being pressed, 
then the random number generator is seeded (Line 50) 
and a tone (SOUND 5,5) sounds. You'LL see that Line 
60 checks to see that the value of N is not so Large 
that no additional tone would be sounded if this 
value of N was used as the first number in the SOUND 
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command. If it is greater than 59 (see the first 
part of line 60) then N is divided by two, and the 
value is checked again. Once the computer has 
reduced the value of N to Less than 60, action moves 
to Line 70, where a new note sounds (SOUND N,4). 


The program proper now begins. Action moves to the 
subroutine starting at Line 1070 where the variables 
are initialised. We'LL be looking at that 
subroutine in due course. On returning from the sub- 
routine, the 'game Loop' begins a cycle which calls 
each element of the program as a series of sub- 
routines, to actually play the game. You'll find 
that programming in this way, as was discussed when 
we played Noughts and Crosses, with the important 
parts of the program being called from within a 
perpetual Loop, makes for much 'cleaner' 
programming, and also makes for programs which are 
much easier to debug than when written in other 
ways. 


As you can see, the computer cycles from lines 110 
to 150, then goes back to 110. The cycle begins by 
jumping into the middle of it (Line 130) to give the 
Computer the first move. As Line 90 points out, you 
can give yourself first move by deleting Line 100. 
Line 110 calls the subroutine starting at Line 680. 
This prints out the board. Once the board has been 
printed, action goes to the subroutine from Line 850 
which accepts the player's move. This subroutine, as 
we shall see when we get there, also allows’ the 
player to choose to see the board again on _ the 
screen before moving; to print out the board; or to 
modify the contents of the board to his or her 
choice (by exercising what is known as 'The McKinna 
Option', named after the program tester who 
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suggested a 'modify the board routine’ would be an 
interesting addition to the game). 


After the player move has been made, within’ the 
subroutine beginning at Line 850, Line 130 sends the 
computer back to the routine from 680 to reprint the 
board. Then it is the computer's turn to move, with 
Line 140 directing the program to the routine’ from 
Line 160. 


The speed of a program is dictated, to some extent, 
by the position within a program of often-called 
subroutines. The computer can take an appreciable 
time to find the start of a subroutine, and to find 
the return address. It searches through the progran, 
Line by Line, from the beginning of the program 
every time a subroutine is called until it finds the 
one it wants. Therefore, the closer to the start of 
a program you place routines which are frequently 
called, the faster, generally speaking, the program 
will run. 


The routines which determine the computer's moves 
are therefore at the beginning of the program, 
directly following the major game cycle loop. After 
the computer moves section comes the board printout, 
which is used many, many times within a game. This 
is followed by the ‘accept the player's move' 
routine, where speed is not important. The 'safe 
move repository’ (to be discussed shortly) also 
helps the program play quickly. 


The next section of the program determines’ the 
computer's moves. Line 160 sets each element of the 
S array (which holds the 'safe moves') to zero, and 
the variable A which counts down in ones, and which 
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indicates the square being checked. The first square 
which is Looked at (in the top Left hand corner of 
the board) is number 88, one Less than the initial 
value of A. You can see that Line 180 subtracts one 
from the value of A, an operation which continues 
until the computer either runs off the bottom of the 
board (that is, if A becomes Less than 11) or a cap- 
ture is made (see Line 280, which checks the value 
of A). 


Line 190 checks to see if the selected square 
contains a computer piece (the variable C holds’ the 
ASCII value of the asterisk which is used for the 
computer's ordinary piece, and the variable CK holds 
the value of the Letter O which is used for computer 
kings) and if it finds that the square does not have 
such a piece, directs action to Line 280. Here, if A 
has a value greater than 11, directs action back to 
Line 180, where A is decremented by one, and _ the 
search for a computer piece continues. 


The variable B is set to zero in Line 200. The N 
array (see Line 220) is a four element array. Each 
element holds a number which specifies Legal moves 
from any square. The numbers held are -11, —-9, 11 
and 9 (see DATA statement 1250) which, when added to 
the number of the square which holds a _ computer 
piece, represent a Legal move. 


Have a Look at your numbered board. Imagine that the 
Computer has a piece on square 55. If it is an 
ordinary piece (that is, not a king) it can move to 
square 44 (55 —- 11) or to 46 (55 - 9). If the piece 
on square 55 is a computer king, there are two moves 
in addition to the -11 and -9 ones. The piece can 
move to square 64 (55 + 9) or to 66 (55 + 11). 
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You'll find this numeric relationship, between an 
occupied Square and potential moves from that 
square, exists all over the board. 


If the square being checked is Less that 29 (that 
is, it is on the bottom row of the board) the 
Computer does not bother checking the moves’ 'down' 
(which would take it off the board). It sets B equal 
to two, so when one is added to the value of B_ in 
Line 210, the first 'king move' will be checked. 


Line 220 adds the value of the element of the N 
array to the value of A, thus getting the number of 
the square into which the computer is considering 
moving. Line 230 checks to see if this move is 
actually on the board. If it is Less than 11, or 
greater than 88 then it is, of course, off the 
board. If the number of the destination square does 
not end in zero (as it would if it were 20, 30 and 
s0 on, and thus 'off the board' to the left), the 
computer prints up the move it is considering, as 
"55 to 442", 


Next the computer checks (Line 250) the contents of 
the square into which it is considering moving. If 
it holds a human piece (the variable H signifies a 
human piece, and holds the ASCII value of the plus 
sign which is used in the printed board to designate 
the human piece), or a human king (variable HK), and 
the square beyond this (M, the occupied square, plus 
N(B) again) is empty (the variable E holds the value 
of the blank, ‘empty' space, ASCII 32), then the 
computer knows a capture can be made. 


If it finds such a capture, it does not, aS was 
mentioned before the program Listing, bother Looking 
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for further moves but proceeds to 320 to make _ the 
capture. 


Line 260, the most complex in the program, Looks to 
see first if the square into which the computer is 
considering to move is empty (that is, it is an E) 
and if it is, proceeds to check all the squares 
surrounding the one into which the computer is con- 
sidering moving to see if the move, when made, would 
place the computer in danger of capture. If the com— 
puter decides that the intended move would not place 
it in danger, action goes to the subroutine from 
Line 470 to store the move in the 'safe move 
repository'. However, even though a safe move has 
been found, the computer does not stop at this point 
but continues to search through the board, Looking 
for additional safe moves, and for captures. 


Line 270 checks the value of the piece on the square 
under consideration, and if it is a king (or B is 
less than two, meaning that only the first potential 
move designated by the N array has been checked) 
sends action back to Line 210, where one is added to 
the value of B. Line 280 checks that the end of the 
board has not been reached (that is, that A has a 
value greater than 11) and if it has, sends action 
back to 180, where one is subtracted from the value 
of A. 


Lines 290 and 300 control checking for potential 
promotion to a king. If no capture has been found, 
and regardless of the safe moves stored in the 
'repository', Line 290 sets a flag (variable FL) to 
zero, then checks the four squares (22, 24, 26 and 
28) just before the final, 'promotion' row. If it 
finds a computer piece there, it sends action to the 


253 


subroutine at Line 1270, which checks to see if 
there is an empty square into which the computer can 
move to promote its piece to a king. If it finds 
such a move, the flag FL is given a value of one to 
indicate that the promotion has been found. If it 
has (Line 300), then action goes to Line 650 which 
actually makes the move. 


If a capture has not been found, and a_ king 
promotion cannot be made, the computer uses Line 310 
to go to the routine from Line 500, where the safe 
moves are stored. We will discuss the safe moves 
storage and selection shortly. 


Line 320 makes a capture move, setting the element 
of the Q@ array (which holds the state of the board) 
into which the computer is moving, M+ N(B), to the 
value of the square from which the computer has 
moved, Q(A). The squares jumped over, Q(M), is then 
emptied (that is, its value is set to E) and the 
square which has been vacated by the computer move, 
Q(A), is also emptied. 


Line 330 prints a Line across the screen to warn you 
that a move has been made, and to alert you to watch 
it being printed, so you can change the pieces on an 
external board if you are using one. Line 340 prints 
out the move made, sounds the beep, and pauses for a 
short time, using the dummy T Loop for the delay. 
Then, using Line 350, it prints out the jubilant 
message "Got youl!" four times, moving slightly 
further across the screen’ each time (using 
TAB(2*Q)). Line 360 adds one to the computer's 
score, which is held by the variable CO. 


Line 370 reprints the board, by going to the 
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subroutine starting at line 680. Then the 'number of 
square of the piece under consideration' is changed 
to equal the square the piece has just moved to. 
Lines 390 to 420 then check to see if a further jump 
can be made, and if one is discovered, Line 440 
sends action back to 320 to effect the capture. If 
the piece under consideration is an ordinary piece, 
Line 450 makes sure the potential king moves for 
that piece are not examined. Line 460 returns to the 
master loop, where the board is reprinted, and the 
player's move requested. 


If there is no capture, and an ordinary piece cannot 
be promoted to king, then the safe move repository, 
which comes next, is examined. Up to ten safe moves 
can be stored here. Line 470 checks to see if Less 
than ten moves have been stored, and if so (that is, 
the variable SC has a value less than ten), SC is 
incremented by one. You'll recall that at the start 
of the move routine (Line 160) the S array was 
filled with zeroes. This array holds the safe moves 
which have been found while the computer is’ Looking 
for captures. Line 480 makes a beep to Let you know 
that a safe move has been found, to keep you amused 
while waiting for the computer to move. Line 490 
stores the 'from' and the 'to' squares as a_ single, 
unique number (which can be Later decoded) and then 
returns to the subroutine which is examining the 
entire board. 


Line 500 is checked if no capture and no_ king 
promotion moves are found. If SC equals zero, the 
computer knows there are no safe moves and Line 500 
sends action to the routine from Line 550 which 
selects moves at random. Line 510 chooses one 
element of the A array at random, and Lines 520 and 
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530 strip the unique number generated in Line 490 
back into 'to' and 'from' numbers. The actual move 
is made by Line 650. 


The routine from Lines 550 to 630 chooses moves at 
random. The SC variable is used to count the moves. 
This was the safe move variable, and is used here to 
save introducing a new variable. Line 550 chooses a 
number between one and 88, and then checks to see if 
this element of the Q@ array (the array, you'll 
recall, which holds the entire board) is an ordinary 
piece or a king. If it finds it is either of these, 
Lines 570 to 610 Look to see if a move can be made 
by this piece, and if one is found, sends action to 
Line 650 to make the move. If no move is found, the 
computer uses Line 640 to concede the game. 


Line 650 makes the move, if one has been found in 
the king-maker, safe or random category (the capture 
moves are made somewhat earlier in the program, at 
Line 320). Line 660 tells you which move has_ been 
made, and sounds a warning beep so you'll know to 
look for the move. Again, the dummy T Loop is used 
for a delay. Line 670 returns action to the main 
game loop. 


The board is reprinted by the subroutine’ starting 
from line 680, the Line which clears the screen. 
This Line is, strictly speaking, not necessary, but 
I felt it gave a cleaner look to the output of the 
program if it started printing at the top of the 
screen, rather than always scrolling up from the 
bottom. Line 690 prints out the scores, and Line 700 
sounds a_ beep to Let you know the board is_ being 
reprinted. Line 710 prints out the numbers across 
the top of the board, and Lines 720 to 750 actually 
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print out the board, along with the numbers down the 
side. Line 760 prints the numbers across the bottom 
of the board. Line 770 checks to see if either the 
computer (variable CO) or the human (variable HU) 
has taken 12 of the opponent's pieces and if so, 
action to Line 790. If neither of the two variables 
equals 12, Line 780 returns from the 'print' the 
board’ subroutine. 


If the human has won, Line 790 acknowledges this, 
congratulates the player and then terminates’ the 
program. If the computer has won, it announces this, 
thanks the player for the game, and ends. 


The next section of the program accepts the player's 
move. As you can see from the REM statements you 
enter 99 to concede the game (in response to _ the 
"FROM?" prompt), O to see the board reprinted on the 
screen, 1 to dump the board to the printer, or 2 to 
set up a board of your own choice (using the routine 
from Line 1460, at the very end of the program). 


If either 99, 0O, 1 or 2 is entered, the computer 
acts as instructed, then returns to the FROM? 
prompt, to accept the player's real move. Line 900, 
aS you can see, accepts the TO move, and line 910 
actually makes the move. Lines 920 and 930 Look to 
see if any computer piece can be promoted to king, 
and Lines 940 and 950 do the same for the human's 
pieces. Line 960 Looks to see if the difference 
between the 'from' and 'to' squares is Less than 12. 
If it is, it knows that a capture has not been made, 
so returns to the main loop, where the board is 
reprinted, prior to the computer making its next 
move. 
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If, however, the computer discovers that a capture 
has been made, it selects a number at random between 
zero and one, assigns it to variable TY, and uses 
this to print out a congratulatory message to the 
player. Note that this does not happen every time a 
move is made. Line 1000 increments the human's score 
(variable HU) by one, and the second part of the 
Line turns the square between the one move 'from' 
and that moved 'to', to empty. The Last part of Line 
1000 sends action to the subroutine to reprint’ the 
board, and again a check is made to see if a human 
king has been created (Lines 1010 and 1020). 


Line 1030 asks if the player can move again, with a 
"Y" or "y" being interpreted as a 'yes' answer. If 
the player does not answer 'yes', action reverts to 
the main game Loop again. If, however, the player 
can jump again, Line 1060 sets the latest ‘'to' 
square to be the newest 'from' square, and then goes 
back to Line 860 to accept a new 'to' destination. 


The next section of the program is the initialis— 
ation routine, put near the end of the program as 
it is not accessed again. The screen is first 
cleared of the "Press space bar..." message, and 
some principle variables are assigned. H is’ the 
human piece, HK the human king, C is the computer 
piece and CK the computer king. E is the empty 
square, and the variable B is for the black squares. 
In line 1090, OF is the variable for ‘off the 
board'. The Q@ array holds the board, and surrounding 
squares, the N array holds the possible moves from 
any position on the board, and the S array holds the 
safe moves. Line 1100 sets every element of the Q 
array to —99 (the variable OF), and the loop from 
1100 to 1130 reads the Q@ array element number (D) 
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and the value to be placed in that element of the 
array (G). 


The DATA statements from 1140 to 1230 contain the 
information to be held in the array. Line 1240 fills 
the N array, the array which holds the possible 
moves, using DATA from 1250. The variables to hold 
the human (HU) and computer (CO) scores are assigned 
in Line 1260, when action is returned to near the 
start of the program. 


The 'king-maker' routine occupies Lines 1270 to 
1340. The computer Looks along the second back row 
to see if it has a piece there, and if it finds one, 
checks to see if it can move into the back row to 
gain a king. If it can, the flag FL is set to 1, to 
indicate that a king can be made. The routine from 
1350 to 1430 dumps the board to the printer, in 
response to a '1' answer to the "FROM?" prompt. 


The final routine in our program is 'The McKinna 
Option' which allows you to modify the board, once a 
game is underway, to your own specifications. A 
favorite modification is to give the human player a 
whole row of pieces Less than the computer has. The 
routine is self-prompting and allows you to set up 
such things as challenging end games, to see how the 
computer reacts. 
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CHAPTER SIXTEEN — CHESS, THE FINAL FRONTIER 


"It is not amazing that a bear can 
be taught to dance well, but that 
it can be taught to dance at all" 


It is amazing that computers can be taught to play 
chess, and some of them do it brilliantly. Our 
program, "Dancing Bear Chess', does not play 
particularly well. The main value and interest of 
this program, and the reason for including it in the 
book is that it is written in BASIC to fit the un- 
expanded HX20. As well, it plays fast, recognizable, 
(generally) Legal but very weak chess. 


It is included in this book because chess is among 
the most intriguing applications devised for a 
computer; because despite being in BASIC it plays 
swiftly; and because the study of how such a program 
works can indicate some approaches to the production 
of ‘artificial inteLligence' (or, at Least, actions 
and reactions which appear intelligent) from a 
computer. 


In the third chapter of this book, we discussed Alan 
Turing's thoughts on machine intelligence, and_ the 
Turing Criterion. This — as you'Ll probably recall - 
pointed out that an entity could be _ considered 
intelligent if, when interacting with it over a 
wire, the human being could not detect if the 
‘entity' was a machine or another person. The 
giveaway here would probably be the chess blunders 
the HX20 sometimes makes. But you could expect the 
same playing with a raw recruit to the game. 


The program prints the board on the screen (and will 
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dump to the printer at any time) as follows: 


BABCDEFGHE 
: RNBGKENR 
PPPPPPPP 


PPRPPEFP 
rnbak bor 
BRECCEFGHE 


hth Uo NOD 


eho bod oO 


Your pieces are the Lower case Letters at the bottom 
of the screen (the 'white' pieces) andthe 
computer's pieces are at the top ('black'). The 
computer has the opening move. You indicate your 
move by entering the Letter and number (as 'D2') of 
the piece you want to move, then press ENTER, then 
enter the Letter and number (as 'D3') of the square 
you wish to move to. 


The computer plays very quickly, with most moves 
made within 20 seconds. It also prints up on the 
screen the order in which it is considering moving 
the pieces (this order changes as the game 
progresses), and if it cannot find a capture move 
which it judges is worth making, it will tell you 
where in that List it will start Looking for a move. 


The HX20 chooses from this List using weighted 
random numbers, so it will never play the same game 
twice in a row, even when confronted with identical 
circumstances. 


Once the computer has made its move, it signals this 


to you by making a series of sounds, and printing up 
on the screen the move it will make (along with the 
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time) and then continuing with the sound until you 
touch the "Q" key. It will then make the move, and 
reprint the board, before asking you to move. 


This feature, of waiting till you say you are ready 
to see the move, allows you to walk away from the 
computer, then return when you are ready to see the 
move it has selected. 


It is almost impossible to play this game without an 
external board and pieces (unless you are very 
patient and have an endless supply of printing 
paper). I have deliberately used standard (algebraic 
or continental) notation because it is fairly easy 
to buy a chess board which is already marked in this 
way. This is how the numbers and Letters are 
arranged in standard algebraic notation: 


There are two versions of the program given here. 
The first is generously supplied with REM 
statements, to allow you to unravel the program, and 
this is the version you should enter if you wish to 
exercise your mind by tackling the most rewarding 
task of improving the computer's play. If, however, 
you simply want a version of the program which will 
play as quickly as possible, and will be as simple 


262 


as possible to enter, use the second version. The 
notes given here refer to both versions, as I_ have 
not renumbered the shorthand version. 


The computer plays as quickly as it does because of 
a few simple dodges. For a start, it always Looks at 
the squares on the board in a predetermined order, 
an order which I devised which appeared to give’ the 
maximum trade-off between the quality of the 
computer's play and the speed of its reply. The 
second dodge is a further trade-off, in which the 
depth to which the computer searches for a_ possible 
reply to its intended move is kept to the absolute 
minimum, without introducing idiotic, completely 
random play. 


I had been thinking of writing this program for 
about a year before I got around to doing it. After 
the Personal Computer World show in London in 
September, 1982, I had arranged a two week holiday 
in Wales and took with me a number of magazine 
articles on computer chess, and an introductory book 
on how to play chess written for children. 


I started writing the first outline of the code in 
my notebook, then bought an exercise book to keep 
the outline (which was rapidly turning into a 
monster) into some sort of order. I realised that a 
chess game that was unable to get out of check would 
be worse than useless. For two days I tried to work 
out how the computer could (a) detect it was in 
check; and (b) once it had, work out how to get out 
of it. Then, when walking near the tiny coastal 
village of Amroth I worked out how to solve most of 
the check problem, and then seconds Later realised 
that the same technique should work for any other 
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piece to detect both danger to itself in its present 
position, and the dangers it would face if it made 
the move it was contemplating. 


The heart of the program's ‘intelligence’ (such as 
it is) Lies in the routine I've called the "Amroth 
Defense", the subroutine which starts at Line 410, 
and which is called time and time again when a move 
is contemplated. This routine is the real workhorse 
of the program, detecting that the player is’ in 
check, finding out whether or not the computer is in 
check, discovering a move (if such a move exists 
within its repertoire) to get out of check, Looking 
for human pieces to capture, and so on. Despite the 
"Amroth Defense", the program plays Like a_ real 
novice. 


I knew the running speed of the program would be 
critical, and because programs with often-used sub- 
routines placed at the beginning run fractionally 
faster than they do if such subroutines are towards 
the end, carefully structured the entire program so 
that the action would tend to flow smoothly within 
it. Non-critical routines (Like the one which 
accepts the player's move, the one which reprints 
the board, the one which allows you to change sides, 
and the one which comments on your moves) are at the 
end. The master Loop which calls the subroutines 
which do all the work is at the beginning, and the 
Amroth Defense is as close to the start of the 
program as I could place it. 


I knew that the more elaborate the strategy I tried 
to build into the program, the Longer it would take 
to move and the less flexible it play could be. I 
read through the children's "how to play chess" 
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book, looking for absolutely elementary strategy 
(such as backing up pawns with other pawns, and 
trying to possess the center of the board) and com— 
bined that with with my understanding of chess 
(including such rudimentary ideas as the one that 
knights should be developed before bishops) to 
create a program that, while under the influence of 
the random number generator, still managed to play 
with some apparent awareness of the implications of 
its actions. 


Chess is one of the oldest of man's great games and 
remains the most fascinating and popular of them 
all. The intellectual challenge involved in teaching 
a machine to play chess has attracted many, many 
worked in the field. The game involves no chance, 
unless you count opportunities created by the 
blunder of the opponent) and appears an_ infinite 
resource for new and challenging play. The HX20 is 
not hidebound by the traditions of chess, so some of 
its openings may surprise, exasperate and (occasion-— 
ally) delight you. Note that, in common with other 
‘primitive’ chess programs, this program does not 
support en passant nor castling. 


As was indicated by the board printout at the start 
of this chapter, the pieces are shown as Letters, 
using capital Letters for the computer's pieces 
(with the knight as "N" to distinguish it from the 
king) and lower case Letters for your pieces (again 
with "n" for the knight). The black and white 
checkerboard on which chess is usually played is 
represented in this program by a series of dots. It 
is possible to write a simple routine to turn’ the 
appropriate squares black, but doing this does not 
aid interpretation of the board significantly, and 
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it slows down the printing of the board to a consid- 
erable extent. Therefore, I have opted for an eight 
by eight grid of simple dots to represent’ the 
battleground. 


As you know, the point of chess is to get your 
opponent's king in check. When the king is in check 
it means that it could be captured on the next move. 
You are not allowed to capture a king, but’ signal 
check by entering a 'C' after the board reprints 
following your move, and waits for an input. The 
computer will Look, anyway, to see if it is in check 
as one of its first priorities, but you still need 
to enter 'C', as this is used Later (see Lines 270 
and 3010) for helping the computer to determine if 
it will concede the game. 


The HX20 will attempt to get out of check by 
capturing the offending piece, or moving out of 
check. This is the one point where the computer 
program demonstrates it is only a dancing bear’ and 
not a ballerina. From time to time, it will commit 
the unpardonable sin of moving its king out of check 
by moving onto another square which is under attack. 
This happens rarely, and can either be taken as a 
sign that the computer concedes the game, or (if you 
feel merciful) you can leave it, and it will undo 
the damage with its next move. 


The computer will signal 'check' to you in_ the 
majority of cases if it gets you in check, but it is 
worth concentrating on the game because, from time 
to time (again rarely) the computer will put you in 
check, but not tell you. 


When you run the _ game, you'LL see the board 
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reprinted after each move. When you make your move, 
the board will reprint, and the computer will then 
wait for an input before continuing. If you want 
the computer to move, just press ENTER (and you can 
get the same result by pressing ENTER twice after 
entering the 'to' square of the move, as the board 
will reprint and the computer then automatically 
continue on to make its move). Pressing "P" will 
copy the board to the printer (assuming the printer 
is turned on) and "X" will swap sides. 


When you enter an "X", the HX20 carries out a mirror 
image swap, with your pieces being reflected in an 
imaginary mirror placed in the middle of the board, 
and the computer's pieces being swapped in a similar 
manner to your side, with the colors also being 
exchanged. That is, you still use Lower case Letters 
and the computer still uses upper case ones. 


In our history chapter, we met Claude Shannon, and 
discussed the contribution he made by producing the 
important paper "A Symbolic Analysis of Relay and 
Switching Circuits" which explained how circuits 
could be wired to carry out mathematical and Logical 
tasks. Shannon’ produced another important paper, 
Programming a Computer for Playing Chess, a decade 
later. In this, he pointed out that there were 
around 10 raised to the 120th power possible games 
of chess of 40 moves and it would take a computer 10 
raised to the 90th power years to analyze to this 
depth at the rate of one game per microsecond. To 
drive home the size of the number, it is worth 
noting that there are Less than 10 raised to _ the 
120th power atoms in the universe. 


Shannon concluded that there was no way a computer 
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could be taught to play chess purely by exhaustive 
analysis. He went on to outline how the two sides in 
a game could be evaluated. His evaluation function 
included rule of thumb relative values of pieces 
with the pawn as one; the queen, nine; rook, five; 
and bishop and knight three each. 


Shannon suggested some refinement on these’ values, 
including putting an emphasis on the desirability of 
the center of the board to be under the control of 
the pawns if possible (a feature your program 
supports, with a sampling on squares to make moves 
which give the pawns controlling the center priority 
in the early stages of the game), the weakness of 
pawns in front of your own king after castling, and 
that -— if possible — both rooks should ideally be on 
the same file to concentrate their attack. 


Fully aware that position analysis of this type was 
of Limited value, Shannon said that an ideal program 
(and, at that time, there were no chess-playing 
programs at all) would be aware that after a major 
capture such as one in which a queen is’ taken, the 
obvious response would be look for a_ possible 
capture in exchange. An evaluation function would 
not necessarily lead to this sort of move being 
made. Although when you play chess, or a_e similar 
game, you can see such things intuitively, a 
computer must be taught to recognise when a straight 
evaluation of each sides' strength, and a move based 
on a_ series of 'tactics' Learned by rote, is not 
appropriate. 


Shannon suggested that a program which always 


searched for moves to a fixed depth was a 'type A' 
strategy and said a 'type B' strategy, which allowed 
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the computer to reject some paths as 'obviously' not 
worth following, was required. In fact, most 
dedicated chess machines, and the better chess 
programs on the market, now use what may be called a 
‘Shannon B' strategy. Shannon said such a strategy 
could be developed by weighting the computer's 
assessment of a move so that it tended to pursue 
moves which captured, created or threatened check, 
before it Looked at defensive moves. 


A very primitive Shannon B strategy is used in our 
HX20 program in which after an "Am I in’ check?" 
routine is explored, the computer looks ffor its 
"best' capture, using the generation of heavily— 
weighted random numbers to modify straight piece— 
value comparisons. For example, it knows that any 
capture by a pawn is Likely to be of value (and 
certainly a capture of any piece other than a_ pawn 
is almost definitely of value, evaluated purely on a 
one-for-one capture basis, without Looking at other 
implications of the move). 


Therefore, the pawn capture routine from Lines 2410 
to 2480 uses (as does the rest of the program) the 
flag MM — for 'machine move' — to signal whether or 
not a move has been found, and having it set to one 
when a suitable move has been discovered. Line 2430 
sets MM to one if any opponent piece is found to be 
under attack by a computer piece, and [in the second 
statement of Line 2430) only changes this back to a 
zero if the piece under attack is a human pawn and 
the random number generated between zero and one is 
less than 0.2 This means, in practice, that the 
computer will always capture a piece which is not a 
pawn by a pawn if it can, and will capture a pawn by 
a pawn around 80% of the time. The 0.2 value, along 
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with the other values in random evaluation routines 
in the program, was first determined intuitively 
(that is, I took a guess) and then modified this by 
trial and error. You'Ll see another such weighting 
in Line 1470, when 10% of the time (more or Less) a 
non-capture move by a rook will be checked to see if 
the square it is considering is under attack, anda 
move will be made there if it is not. 


Shannon also suggested that a computer could be 
programmed to recognise typical board positions, and 
would know which move had proved best in practice 
against that move. Only one serious attempt to 
implement this approach has been made. However, the 
program played badly at its first major public 
outing, a chess tournament in the early seventies, 
and the idea has not been used to a_e significant 
extent in any major chess program since that time. 


The first program written to play a complete game of 
chess was developed by an IBM employee, Alex 
Bernstein, in the early 1950's, on one of his 
company's computers, the IBM 704, Bernstein's 
program asked a number of  questtions, which 
determined which types of moves would be _ further 
considered. A similar approach is used in most 
programs which purport to display intelligence 
(including the Checkers and Noughts and Crosses 
programs in this book). His main question was the 
same as ours: "Is the king in check?" and he 
followed this with questions which included an 
understanding that the program would be’ encouraged 
to exchange pieces with the opponent when it’ was 
ahead, and to discourage it from doing so when it 
was behind. 
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However, it shared a weakness with DANCING BEAR 
CHESS. No question of the form "Can I give check?" 
was included, so the computer had no mechanism to 
aggressively pursue check. This is the kind of 
development you could include within the program 
when you start improving it. 


We'LL now Look at our program, and I will explain 
the major routines and the thinking which Lies 
behind them. After the screen has cleared when you 
first run the program, the message "Dancing Bear 
Chess (i) Hartnell Please stand by..." appears and 
remains on the screen while the initialisation 
procedure is carried out. Line 40 ensures that only 
integer variables will be used, a process’ which 
saves considerable operating time, as will be proved 
if you delete this Line. 


Line 3170 seeds the random number generator and a 
number of arrays which are used within the program 
are dimensioned in 3180. The A array holds the 
board, R holds the possible rook '‘'displacements' 
from the square currently occupied by a rook, 8B the 
bishop moves, N the knight moves, Q@ the queen moves 
(which are the bishop moves plus the rook moves). Z 
is used in the exchange routine when swapping sides, 
S for the order in which the squares on the _ board 
are checked, and T for holding the current position 
of the computer's pieces. 


The variables are assigned in Line 3200 ffor the 
human pieces, using obvious variable names (such as 
P for pawn and K for king). The E stands for 
‘empty'. The computer pieces (black) are assigned in 
Line 3200, again using easily recognisable names (PB 
for the black pawn, BB for the black bishop and KB 
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for the black king). 


The Loop from 3230 to 3250 fills all elements on the 
major array, A, with 42, which will Later be used to 
indicate to the computer that the move it is 
considering is ‘off the board'. The next Z_ loop 
(3260 to 3290) fills most of the A array (the 
elements representing squares on the board) with 
their opening values (that is, it sets up the board 
for the start of the game). 


The next section fills the potential move arrays 
with their 'displacements'. The knight moves are fed 
into the N array in the routine from Lines 3470 to 
3520, and as follows: rook — 3530 to 3610; bishop - 
3670 - 3700; queen - 3710 to 3750 (note that the 
queen uses the DATA statements from the rook and the 
bishop); and king — 3760 to 3810. The Z Loop used 
in lines 3820 to 3840 feeds the order in_ which 
Squares are checked during the game into the S 
array. 


Once this rather Lengthy initialisation procedure 
has occurred, the computer makes a Little music 
(Line 3930) to Let you know the game is about to 
begin, then returns to Line 60. Here, the GOTO 90 
sends action to that Line to give the computer the 
opening move. After this, a standard cycle is 
followed. The board is printed using the subroutine 
from Line 2760, the player move is accepted (Line 
80, sending to the subroutine from 3040) and the 
board reprinted. Then, the lengthy machine move 
procedure begins. This procedure, not surprisingly, 
occupies most of the program. 


Firstly the move flag MM is set equal to zero. If 
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this becomes set to one at any time in the next two 
hundred odd Lines, the computer has found a move and 
decided to make it. Line 110 holds the program for a 
moment (which, from the player's point of view, is 
just after the board has been reprinted following 
the acceptance of his or her move), waiting for the 
player to either simply press RETURN (at which point 
the computer will start Looking for a move; "C" 
indicating the computer is in check; "P" to tell the 
computer to print out the board; or "X" to signal 
that a 'mirror swap' exchange (as explained earlier) 
is needed. After any of these, the computer will 
look for a move (although in the case of the ex- 
change, will reprint the board before doing so, and 
give you the opportunity of requesting a printout at 
that point before Looking for a move with its’ 'new' 
pieces). 


The loop from 160 to 170 fills the T array with 
zeroes. The T array will hold the Location of the 
computer's pieces, which saves a considerable amount 
of time in subsequent processing, as the computer 
does not have to continually 'rediscover' where its 
pieces are (as it does, for example, in the Reversi 
and Checkers programs). In Line 180, U is set equal 
to zero. U is used to count the number of pieces the 
Computer has on the board, so it knows how many 
pieces it must consider for moves. The complex-— 
Looking Line 200 performs a number of tasks: 


- it searchs through the squares on the board, 
in the order determined by the contents of the S 
array, to locate the computer pieces 

- it counts them, using the variable U 

- it places the pieces, in the order in’ which 
they have been discovered, into the T array 


- it prints out the piece on the board 

- if the piece is a king, variable KM (for 
‘king marker') is set to that square, so _ the 
computer knows where its king is at all times 


The next Line completes the Q array. If it discovers 
it only has two pieces on the board (that is, U is 
less than three) it sends action to Line 2390 to 
concede the game. If you want the program to play to 
the bitter end, you can delete the Last half of Line 
210. 


Action now goes (via Line 230) to the routine’ from 
740, which checks to see if the king is in danger. Z 
is set equal to the king's position (held, you'll 
recall, by the king marker, KM). It checks the KM 
square against every possible attack, going to 1990 
to try and get out of danger if it discovers it is 
in trouble. 


It checks to see first if it is under attack from a 
knight, then a bishop, queen or rook (with a single 
routine), then for danger from a pawn. If it does 
not survive this battery of tests, which continue up 
to and including Line 1000, then the computer goes - 
as I said - to 1990 if it finds trouble. Here, as 
the REM statement says, KING LOOKS FOR SAFE MOVE. If 
it finds a safe move, it goes to the small routine 
from 2690 to 2750 to make the move, and then’ goes 
back, via a zigzag routine, to the routine which 
prints the board. If it does not find a safe move in 
the Long routine from 1990 to 2380 it concedes’ the 
game. The routine which acts on a safe move is from 
2320 to 2350. 


If it has discovered it is not in danger, 1010 sends 
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action back to Line 240, SHUFFLE KING. This REM 
statement refers to Lines 250 and 260, which move 
the king to the end of the pieces which will be con- 
sidered from now on. The king is understandably 
reluctant to move its king if any other option is 
open to it. 


Next the computer chooses a piece to move. Line 270 
sets Q to equal zero, one or two (and the Last part 
sets it to zero regardless, if you have told the 
computer it is in check, that is A$ = "C"). Line 
280 adds one to this to be the piece it will con- 
sider first, and 290 sets Z equal to the number of 
that square (which, it knows from the routine in 
lines 200 to 210, contains the first piece it will 
consider moving). Jumping to 350, it goes to the 
subroutine which handles that piece's moves. Line 
400 returns to 310, where a check is made to see if 
the 'machine move' flag equals one. If it does, a 
move has been decided upon, and the _ subroutine 
(after it has written its move on the screen "I 
moved from D7 to D5", and the player has pressed "Q" 
to signal the move has been noticed), the action 
returns to Line 70 (via 320) to print the. board 
before accepting the player's move. 


If a move has not been made (that is, MM still 
equals zero), the computer checks in Line 330 to see 
that Q@ (the number of the piece it has just consid—- 
ered) is lower than U (the total number of pieces 
the HX20 has on the board) and if it finds that Q is 
lower than U, it returns to e280, where Q is 
incremented by one, and the search continues’ with 
the next piece Looking for a capture. As I _ said 
earlier when discussing the Shannon 8B search 
technique, the computer may well have found a 
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possible capture in its run through the routine, but 
the weighted random number generated told it not to 
make the move. 


Once all the pieces have been checked to see if they 
can capture, Line 340 sends the program to 2540 to 
make a non-capture move. Line 2550 generates a 
random number between zero and eight, using the two 
RND(1)'s to heavily weight the numbers in favor of 
those closer to zero. It does not stop the higher 
numbers being generated, but makes sure they appear 
Less often than the Lower ones. The end of 2550 
checks to make sure the number generated (Q) is Less 
than the number of pieces on the board (U), and — 
if meeded — goes back to the start of the Line to 
get another starting value. When you run_ the 
program, the computer will print up all its pieces 
in the order in which it will consider’ them. The 
next Line (2560) tells you where along that List it 
will now start looking for a piece to move. 


Z is set equal to the piece held in T(Q) in Line 
2580 and the next section (much the same as_ the 
capture search section) sends the computer to the 
subroutine related to the piece Z. This routine is 
traversed until a move is found, and MM is set equal 
to one, triggering Lines 2660 and 2670. If no moves 
have been found, the program 'falls through' Lines 
2650, 2660 and 2670 to trigger the "It's your game" 
message and the program terminates. The routine 
from 2920 to 2990 is used by the king to locate a 
move to escape check. 


This covers the 'intelligent' parts of the program. 


The rest is reasonably self-explanatory and governs 
a number of house-keeping tasks: 
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2690 - 2750: Tells the player the move the computer 
is going to make, prints up the time, and returns 


2760 - 2910: Prints out the board, holdiong at Line 
2780 if the computer has just moved until the player 
presses "Q" to signal that he or she has noted the 
move and is ready to proceed 


2830 - 2840: These are within the board print 
routine, and serve to promote a pawn which has made 
it to the back row to queen. This routine is checked 
every time the board is reprinted. It does not 
significantly increase the time it takes to reprint 
the board 


3040 —- 3130: This accepts the player's move. If the 
player is capturing a computer piece (detected by 
Line 3100) the action goes to the 'speech sub- 
routine’ from 4170 which either makes a few beeps to 
acknowledge the capture and returns, or chooses from 
one of three messages ("Well done", "Good move" or 
"Got me"), holds the message for a few seconds 
(using the delay Loop in Line 4290) then returns to 
the player move routine 


3950 - 4050: This covers the 'exchange', the mirror— 
image swap we've discussed. The best way to 
understand this is to play the game for a while, 
then enter an "X" to do the exchange. Having done 
this, print the board out, and you'Ll see the effect 
of the exchange. It is quite interesting to do this 
if you're being thoroughly beaten by the computer 
(and you want a second chance) or you are_ thrashing 
it and you want to see what it would do with your 
material 
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4060 - 4160: This routine simply dumps the program 
to the printer, when you've entered a "P", following 
your move 


He a A He eH a I IK He 


The program was modified slightly so that it would 
‘play against itself', swapping the pieces after 
each move, so it was considering its own previous 
move aS an _ opponent. The play is _ undirected, 
without even the guidance that the computer receives 
when playing against a human, but it is fascinating 
to see how the computer plays. Its opening moves are 
not very promising: 


Dancina Bear Chess 
(i3-Hartnell 
Plegse stand by... 
BRECDEF SHE 
RHBOK BHR 
PPPPPFPP 


PPPFEPFPP 
rnbak ome 
BRECCEF SHR 


Shot & on soo 


ba ta Oo oo 


BRECDEFGHE 
RNEGIK ENR 
PPPPP. PF 


Mii Unim s) oo 


FRRPEPFE 
1 rnbakbnor 
BABCDEFGHE 


a 
Reha ld Solo o-oo 


BABCDEFGHE 
R. BOKENR 8 
PPPPP. PP 7 
Hetexes. 6 
; P 


ae ae ee 
FPPP, PEP 2 
rnbakbnr 1 
MABCCEFGHE 


hd om ~) oo 
id Bono 


BRECCEFGHE 
Rk. BOKBHR 
PPF. P. PP 
A a 
wePe ees 
is ole a 
PF. FP. PPP 
rnbak bnr 

BRECDEFGHE 


KH MPN LUNA 
bot On ~ 00 


Not content with bringing out the queen's’ knight, 
the computer (as black, at the top of the board) 
brings out the king's knights as well: 


BABCDEF GH 
R. BAKB.R & 
PPP. P.PP ? 
i er 


ee 
eeen Pause 
PP... PPP 
rnbak bor 

MABCCEFGHE 


hat & OO 7 00 
7 
. 


bid ulin 


Nonplussed, white elects to also develop a knight: 
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BABCDEF GH 
R. BOKB. R 
PPP... PP 
N.. PPN.. 


as PPe oes 


HMA EOD OO 
Nw Oo OO 


r.bakbnr 1 
BABCCEFGHE 


Later, black moves its king's knight into danger, 
and the white queen swoops: 


BABCOEF SHE 
R. BAKE. R 


em hI fe Oi om 00 
_ 27" 
Rh OO OO 


fe bak ber 
BRECCEFGHE 


WABCDEFGHE 
R.. KB. R 
? PPPB, . PP 


me hid fe on md Oo 
RA 
a at 
eho BO m0 


BABCOEFGHE 


If she had stayed there, the queen might have been 
safe, but she foolishly elects to capture a pawn (!) 
and the black rook immediately pays her back: 
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BABCDEFGHE 


PPPB. . PR 


Meee Peel 
FP... s FP 
r.bkbr 

BRBCOEFGHE 


BMA AO 
BNO IO 


Black now moves in on the attack, bringing first its 
queen's knight down, then following that with the 
queen herself: 


BABCOEFGHE 
R..QKB.. 


eho & ono sy co 
*: 
ye 
PD 

POCA fe Oo my 00 


ree kb. 
BRECCEFGHE 


BRECDEF SHE 
RF... QKB.. 
PP.B.. PR 
».m.PP.. 
eeee Pe PN 
Hew nee F 
r.bBkber 

BRECDEF SHE 


hod Oho —) OG 
eh Oo sO 
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BABCDEF GHE 
R..aKB.. 


Ke PW ono 
. 2 
ae 
a7 
mR fe oT md 00 


re bw kb. 
BAECDEF GHEE 


CHECK! 


By that stage, white was in real trouble, having 
thrown away much material in the early stages. I 
stopped the game, and started a new one, to see how 
white would fare this time: 


BABCDEFGHE 
8 RNBOKENR 8 
7 PPP..PPP 7 
6 cna ork 1. 6 


FP. . FRPP z 
rnabakbnor 1 
BRECDEFGHE 


BABCDEFGHE 
8 RNBGKENR 
7 PP... PPP 


mJ OC 


2 FP.. PPP 
1 rnbakbnr 
BABCDEFGHE 


+ 
a] 
hold & Oli 
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Things were settling down to a tussle of the pawns: 


BRBCDEFGHE 
RNBOK BHR 


to td BOO so 


PR... PRP 
rnbakbnor 1 
BRBCDEFGHE 


Bhi & Om ~) 00 


It was time to bring in the heavies 


BRECDEFGHE 
R. BOKBNR 8 
PP... PPP 7 
wa Neowys : 


PP. wee PP 2 
rob. kpnr 
BABCCEFGHE 


hoi & Om - oo 
a 
a) 

eee es ee 


White seems hell-bent on developing pieces: 


BABCDEFGHE 
8 R.BOK..R | 
P...BPPP 7 


fae’ Pe wars 
5S Fae Fen ene 
PLT. FP 
r.bo kor 
BABCDEFGHE 


em hed fe i m0 
Sai 
= 
a 
a 
ey 
eH PoC Se Uo my 0 


BABCDEF GHEE 
3 R..OK..R 
7? PBL. BFFP 


= 


O10 


NP. Neen. 
pale 
»Pa laa Fs 
r.bokbe 
BRECDEFGHE 


et aed fe ON oh 


me bot of 


But a fatal mistake is just waiting to happen, as 
white decides to take the king out for a breath of 
fresh air, perhaps to support the queen: 


BRABCOEFGHE 
6 R..OK..F 3 
Y PBH.BRFF ? 
D avevsene 6 
5S HP..Fem 5 
4 Five 4 
3 Fe. eee FOS 
2 .F.nK.F. 2 
1r.be.ter 1 

BRECDEFIHE 
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Watch closely now, and see how white puts the king 
back in obscurity, but not on its own square. As 
you'll see in amoment, this move is a disaster 
waiting to happen: 


BRBCDEFGHE 
R..OK..R 
. BN. BEPP 
Paceceistwieie 
HP..Fen. 

Panic's 
a 
rnobk. f.r 


BABCDEFGHE 


eh td & Oo yo 


White now does the unthinkable, moving the queen 
from D3 to C3, right into the jaws of the pawn on 
D4. Not only does this throw the queen away, but it 
opens the way for check from the black queen, the 
full Length of the board away: 


BABCOEFGHE 
R..OK..R 
. BN. BPPP 


Ud ~J 00 


eho ted Oo soo 


a 
hi 


rnbk. ber 
BRECDEFGHE 


CHECK ! 


285 


Later in the game, having overcome this series of 
moves, white has managed to build a protective wall 
between the king and the outside world: 


BRBCDEF GHE 
PR. OER t 


i 


Pod Om moo 
7 =. 
pies 
7 
0 
7 
m8 


un 
eR hot fe ois yo 


i * 
tae 
= 


And sends forth a pawn to demolish firstly another 
pawn, and then then bishop on D6: 


BRECDEF GHEE 
& Re Gh. ER 


Hite fe oo my co 

. 

0 
hot eo 0 


1 reek. be r 
MABCOEF SHE 


But nothing can compensate for its earlier blunder, 
and white conceded to black a few moves Later. It is 
just as well the program plays black when it is 
playing against you. 
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Here is the first version of the program, Liberally 
supplied with REMs and the Like: 


1@ CLs 

2A PRINTIPRINT "Cancins 

Bear Chess" 

SQ PRIMNTTABCS2"¢i2—-Hartn 

ell"! FRIHT"Please stand 

= 

44 DEFINT A-z 

5@ GOSUB 7146:REM IHITIA 

LISE 

66 GOTO 9@:REM TO SIVE 

MACHINE FIRST MOVE 

7B GOSUB Z2Péa:REM PRINT 

BOARD 

88 GOSUB 3648:REM PLAYER 
MOVE 

908 GOSUB 2768:REM FRINT 

BOARD 

166 MM=68 

118 IHFPUT A$:REM CHECK 
€C3, EXCHANGE (>, PRINT 
CFD 

126 IF Ag="%" THEN GOSUB 
3968:G0T0 9a 

136 IF A¢="FP" THEN GOSUB 
4465 

i4@ REM POTENTIAL CAPTUR 

E CHECK 

158 REM FIHD COMPUTER PI 

ECE 

166 FOR 2=1 TO 16 

178 Té25=6: NEAT 

188 U=6 

194 FOR @=1 TO 64 

288 IF ACSCQ2>>=BB AND A 

Go2<¢=RB THEN Usli+i: re 

ISSPRINT CHRECACS CG 

st IFACSCQ39=KB THEN K 

M=S cy 

214 NEXT GIF U<3S THEM 2 

san 

228 PRINT 

236 GOTO 74a 
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248 REM SHUFFLE KING 

256 FOR @=1 TO UIF Tes 
=KB THEN Teas=TeusiTclos 
EB 

268 HEXT Q 

278 G=THTCRNGe Does eC CAE 
a"CNE do 

288 G=0+1 

298 2=T¢G) 

784 GOSUB 355 

Z1@ IF MM=1 THEN GOSUE 2 


726 IF MM=1 THEN 7e 

236 IF GU THEN 28a 

248 GOTO 2546 

250 IF A¢Zs=0B THEN GOSsU 
B 1028 

S6Q@ IF AcZs=RB THEM GOSU 
B 1288 

ZPa@ IF AacZ2=BBR THEN GOSuU 
EB 1544 

286 IF AatZ2=HB THEN GOSU 
BE 1860 

=9@ IF AcS>=PB THEM GOSU 
B 2418 

496 RETURN 

416 REM "CHECK?" 

420 IF AtCx>=187 THEN PRI 
HT "CHECK! ":0=04+1: G0T029 
5) 

430 IF +9285 THEN 458 
449 IF ACH+92°33 AWD ACH 
+92>65 AND RHDCL) <8, 96 
THEM RETURN 

450 IF #-11<11 THEN 476 
464 IF ACK-112¢83 AND AC 
H-112>65 AND FHDCL> <8.9 
& THEN RETURN 

476 FEM Q-RvB CAPTURE CH 
EK 

456 Ab=8 

496 ai=1 

SOQ AX=K+OCAY+AD 

S14 IF Ax<i1 OR AX>8S TH 
EH 5408 

BPA AP=ACAKD 
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524 IF AP=) OR AP=R AND 
RMDC19>8,8 OF AP=B AND R 
HOCL9 28.5 THEH RETURH 
ada AYSAY+1 

so8 IF AY<S THEN 548 

S69 AD=AD+7 

a°6@ IF ADSS& THEM 498 
ac@ REM KNIGHT CAPTURE C 


600 AK=K+NCAY? 

616 IF AX<11 OR AK>88 TH 
EH 638 

6206 IF ACAxX =H THEN RETU 
RH 

638 AY=AY+1 

64@ IF AY<9 THEN 68 

654 REM KING-FaAWH CAPTUR 
E CHECE 

668 AY=l 

67O AKX=K+KCAYS 

686 IF AK<11 OR AK>S88 TH 
EH 7a@a 

696 IF CACAK =K OR ACAH? 
=P) AHD RNDC1L>>8.1 THEN 
RETURN 

Fae AY=AY+1 

71i@ IF AYS9 THEN 678 
r28 MM=1 

738 RETURN 

748 REM KING CHECK 

P5e@ S=kM 

75a REM ENHIGHT DANGER? 
re (= rs) 

73a veyed 

P39 R=Z+Nc¥) 

200 IF £11 OR #285 THEN 


210 IF ACKIS NM THEN 1998 
$20 IF Vee THEN 73 

538 REM ROOK.“BISH*“QUEEN 
CANGER ? 

348 D=8 

$50 Y=a 

B60 K=Z2+OCV¥+D9 


87@ IF #<11 OR %>88 THEN 
9208 


336 IF ACX>=B OR ACK)=0 
OR ACKI=R THEN 1999 
$39 IF ACKI< SE THEN 928 
9096 YWo''+1 

314 tr VS THEN 865 

920 D=D+? 

93@ IF D<S6 THEN 8608 
94@ REM Aga DANGER? 
95@ s=2+ 

36@ IF 088 THEN 986 

3976 IF ACX>=P THEN 1998 
98@ #=Z-11 
99@ IF x<11 THEN 248 
1966 IF ACK>=P THEN 1996 
1816 GOTO 246 

1Q26 REM QUEEN CAPTURE 
34 b=8 


on 


pone ores 
ae 
Tm i 
MO i hs 


m=etOcyv+ls 
TE 411 OR 4538 THE 
NH 1126 
Lara IF AcKI=42 OR ACAI? 
=BB AND ACKIS=RB THEN 11 


138 IF ACK 2=B AND ACK 
2 THEN GOSUE 41@: 1F 4 
THEN 1124 
IF MM=1 THEM RETURN 
Yo'+1 
IF Ves THEN 1858 
hfe? 
IF 0.56 THEN 1846 
RETURN 
REM QUEEN MOUE 
b=B 
v=1 
HeSeii Ye fia 
IF Aed1 ORF 885 THE 
258 
1 260 IF ACKIS SE THEN 125 
5] 


ie 
AA 
i eS 


how 
bon, 


i 
1 
1 
1 
L 
1 
1 
1 


BRA ee eb ee pe ee pk ek ee 


Te sD pe ey Poe ee 


a CS Tene Te a aS 


be pe 


E 
i216 IF RNDCis3a. 3 THEM 
GOSUB 418°1F MM=—@ THEN i 
238 
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1226 IF MM=1 THEM RETURH 
1238 YWa''+1 

ie4@ IF Yes THEN 1186 
1258 b=b+7 

1266 IF O56 THEM 117 
278 RETURH 

i268 REM ROOK CAPTURE 
i298 B= 
17ae Y=1 

L316 4=Z2+k¢Y+09 

1326 IF #¢€11 OR #383 THE 
idee 
1336 IF Ac 
=BE SHD ac 
Se 

12344 IF At 
lek THEM G 
=8 THEM 13 
i250 IF MM= “f THEM RETURH 
Yot'+] 

IF Yee THEM 12148 
G=al+? 
44 IF B28 THEM 138 

4 RETURN 
9 REM ROOK MOWE 
29 $= 
Becek(Y4+foy 


i450 IF X¢11 OR 4288 THE 


42 OR SOKo> 
=RB THEN 13 


2=B AND ACH) 
EB 419:0F HH 


woooE THEN 154 


47 IF ooee THEH 


ve 
‘8 THEN i443 


woe THEM 1438 
a RETURH 

4 REM BISHOP CAPTURE 
b= 
Yo] 
ReZt+Bcy+D) 
1586 IF #¢11 OR *>83 THE 
HM 1648 
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1596 IF ACxx=42 OR ACK>> 

=BB OR AX<=RB THEN 14648 
1646 IF ACK>>=B AND ACK) 

<=R THEN GOSUB 416:IF MM 

<>1 THEN 1646 

1616 IF MM=1 THEN RETURH 
1626 Y=¥+1 

16236 IF YS THEN 1576 
1644 D=D+7 

1656 IF D<28 THEN 1568 
1666 RETURN 

1674 REM BISHOP MOVE 
1684 b= 

1696 Y=1 

1766 X=2+Bc¥+D> 

1716 IF X<11 OR #%>88 THE 

M 177 

1726 IF ACK<>E THEN 177 

a 

1736 IF RNDC1>>6.@5 THEN 
GOSUB 41@:1F MM<>1 THEW 
1778 

174g IF MM=1 THEN RETURN 
1756 Y='+1 

1766 IF ¥<8 THEN 1768 
1778 D=0+7 

if3a IF D<28 THEN 1698 
798 RETURN 

18@@ REM KNIGHT MOQUE 
1810 Y=1 

1826 X=Z+HcY3 

1836 IF X<11 OR *>88 THE 

NM 1878 

1846 IF At#)=42 THEN 187 

5] 

1856 IF ACK)S=B AND ACH) 

<=R THEN GOSUB 418 

1866 IF MM=1 THEN RETURN 
1876 Y="+1 

1886 IF ¥<9 THEN 1820 
1898 RETURN 

1988 REM RANDOM KNIGHT 
1916 Y=6 

1920 X=Z2+HCINTCRNDC1)*8+ 
13> 
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193@ IF X<€11 OR %>88 THE 
H 1928 

1946 IF ACK»=42 THEN 192 
5) 


195@ Y='+1 

1966 IF ACX)=E THEN GOSU 

BE 418 

1974 IF MM=1 OR ¥>20 THE 

N RETURN 

1984 GOTO 1928 

199@ REM KING LOOKS FOR 

SAFE MOQUE 

2668 YR=1 

2818 2=KM 

2B26 X=Z+KCYKIS X1=X 

203@ IF ¥<11 OR X>88 THE 

MH 2368 

204@ IF ACH)=42 OR ACK> 

65 AND ACK)<83 THEN 23668 

2@5@ IF ACK)>97 AND ACK) 

£115 THEN 2368 

2R68 2=) 

2878 REM KNIGHT DANGER? 

2688 Y=68 

2698 Y=Y¥+1 

2108 X=Z+NCY> 

2116 IF ®<11 OR %>88 THE 

NM 2138 

2120 IF ACK)=N THEN 2368 

2136 IF Y<8 THEN 2098 

2146 REM ROOK-“BISH“QUEEN 
DANGER? 

215@ D=08 

2160 Y=1 

2176 X=Z+Qc¥+D) 

218@ IF X<11 OR ®>88 THE 

MH 22368 

219@ IF ACK)=B OR ACK3I=0 
OR ACXD=R THEN 2368 
2268 IF ACX<>E THEN 223 


3] 

2216 Y=¥+1 

2226 IF ¥<8 THEN 217@ 
2230 D=b+7 

2240 IF D<56 THEN 2170 
2258 REM PAWN DANGER? 
2264 4=2+11 
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2276 IF X>88 THEN 2298 
2280 IF ACKX)=P THEH 2364 
2298 X=Z-11 

2366 IF ®<11 THEN 2328 
2310 IF ACK)=P THEN 2364 
2320 K=81:2Z=KM 

2336 MM=1 

2346 GOSUB 2698 

2350 GOTO 7@ 

2366 VK=VK+1 

237@ Z=KM 

2380 IF YK<9 THEN 2818 
2396 PRINT "I CONCEDE, C 
HAMP!" 

2406 END 

2416 REM PAWN CAPTURE 
2428 K=2+9 

2430 IF ACK>>=B AND ACK) 
<=R THEN MM=1: IF ACKO=P 
AND RNDC19<@. 2 THEN MM=6 
244@ IF MM=1 THEN RETURN 
2458 IF 2=12 THEN RETURN 
2468 X=2-11 

2476 IF ACK) >=B AND ACK) 
<=R THEN MM=1:S IF ACK>=P 
AND RNDC19<@. 2 THEN MM=08 
2488 RETURN 

24998 REM PAWN MOVE 

256@ IF 2-10*CINTC2“103> 
=? AND ACZ-13=E AND ACZ- 
Z2=E ANDCACZ-133=E OR AC 
2-133=42>) AND CACZ+79=E 
OR A¢Z+73=429THEN #X=2-2: 
MM=1: RETURN 

2516 IF ACcZ2-12=E AND Acz 
—123¢98 AND ACZ+8)<¢98 TH 
EH X=2-1:MM=1:RETURN 
2520 IF RNDC1><@.1 AND A 
C2-13=E THEN #=Z2-1:MM=1: 
RETURH 

2536 RETURN 

2544 REM NON-CAPTURE MoU 
ES 

2558 Q=INTCRNDC1>*RNDC 1) 
*95:IF Q>U THEN 2558 
2068 PRINT "Start Fiece: 
"sO+1 
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2578 Q=Q+1 

2588 Z=TCQ) 

2598 IF ACZ)=PB THEN GOS 
UB 2498 

2606 IF AC2Z.=NB THEN GOS 
UB 1966 

2616 IF AC2>=BB THEN GOS 
UB 1676 

262@ IF ACZ3=RB THEN GOS 
UB 1418 

263@ IF ACZ)=0B THEN GOS 
UB 1158 

264@ IF ACZ3=KB THEN GOS 
UB 1998 

2656 IF MM=@ AND Q<U THE 


2666 IF MM=1 THEN GOSUB 
2676 IF MM=1 THEN GOTO 7 


268@ PRINT"It’s your 3am 

e"S EHD 

2696 REM COMPUTER MAKES 

MOVE 

27GB ACK I=ACZ) 

2716 AC2ZI=E 

272@ FRINT "I moved from 

2758 PRINT CHRSCINT* 2-18 
14649302 MOD 16395" to " 
TCHREC INTC“ 1894+6493 08% 1 

OD 15 

27448 PRINTIPRINT TIMES: 

2758 RETURN 

276@ REM PROMOTE. PRINT 

BOARD 

2776 IF MM=@ THEN 2798 

2786 AF=IHKEVS: [FAK >"D" 
THEM SOUND RND¢1o*5a, 1: 

GOTO 273868 

279@ CLS!PRINT TABC6?;"— 

ABCDEF GHEE" 

2306 FOR X=8 TO 1 STEF - 


1 
2810 PRINT TABC3)3"M"3x3 


2826 FOR Y=i6 TO 8@ STEP 
16 

2836 IF ACi+1)=PB THEN A 
CY+19=0B 

2546 IF ACvY+8)=P THEN AC 

+59=0 

295@ PRINT CHRSCACHKTY3 35 

2368 NEXT ¥ 

2376 PRINT X 

2886 NEXT Xs MM=@ 

2896 PRINT TABC635 "ABCD 

EFGHM" : 

2906 SOUND 1,1°SOUND 2:1 
*SQUND 1,1 

2914 RETURN 

2928 Z2=KM 

23934 Qk=8 

2948 M=Z+KCOK> 

2950 IF AcMd=42 OR ACMO> 

65 AND ACM><S3 THEN 3008 

2966 IF MM=@ THEN 3868 

S978 X= 

298@ KM=X 

299@ RETURN 

300@ IF QK<8 THEN 2348 

3016 IF AS<e"C" THEN RET 


2828 PRINT "I CONCEDE TH 
E GAME" 

3a3@ END 

7848 REM ACCEPT PLAYER 
QUE 

2858 PRINT! INPUT "FROM ¢ 
LETTER: HO3"3 As 

2868 PRINT ASS" TO"S 
S878 INPUT BS 

2888 K=1OeCASCCAS) ~64 9+) 
ALCRIGHTSCAS: 135 

S898 Y=TBkCASC CRS) —64 041) 
ALC RIGHT#<(B$, 193 

Zige IF ACY>=75 AND ACY 
2¢=62 THEN GOSUB 4178 
S11G ACYISACHD 

S128 ACK=46 

3134 RETURN 
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3146 REM DANCING BEAR CH 
ESS ¢i2 
315@ REM HARTNELL Ser. 3 
2 - Feb, 83 
2168 REM INITIALISE 
3178 RANDOMIZE VALCRIGHT 
°C TIMES: 25> 
3186 DIM AC99>;,;RC¢28),B¢2 
B2,N6O?,0¢569,KC83,2¢88) 
»$€649,7¢16) 
219@ REM HUMAN PIECES, 
WHITE 
2268 P=112:R=114:N=118:8 
=30:H=113:K=107:E=46 
3216 REM COMP. PIECES, 
BLACK. 

3226 PB=88:RB=82:NB=7S:B 
B=66:9B=81:KB=75 
3236 FOR 2=1 TO 99 
248 ACZI=42 
3258 NEXT 2 
3266 FOR Z=1 TO 64 
3278 READ #:READ ¥ 
3280 coe 
3298 NEXT 2 
2368 DATA 18,82,28:;7 
286: 43,81 

31@ DATA 58, 75,68:66, 78 
“33, 28,82 
3320 DATA 17:88,27:88:37 
> 36,.47:38 
3338 DATA 5S?>86,67:;30,77 
»36,87:38 
3344 DATA 16:46, 26:46, 36 
»46;,46,46 
3358 DATA 56:46,66,46, 76 


3360 DATA 15:46,25-46,35 


3378 DATA 35,.46-65:46,75 
245,55: 46 
2388 DATA 14:46,24:46; 34 
»46:44,46 
3398 DATA 54.46,64:46, 74 
>46,54:46 
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3408 DATA 13.46,23:46,33 
»46,43.46 

2414 DATA 53,>46,63,46,73 
246,83, 46 

2424 DATA 12:112,22,112;, 
32:112,42,112 

2438 DATA 32:112:62:112; 
722112:82,112 

2444 DATA 11:114,21:114, 
31;,98,41,113 

2450 DATA 351,107,61,98,7 
1,114,81:114 

2466 REM POTENTIAL MOUES 
3476 RESTORE 3528 

2486 REM KNIGHT 

2494 FOR 2=1 TO 8 

2508 READ Ht22 

3516 NEXT 2 

S326 DATA 19:-19;21,-21; 
-8:8,12;-12 

3538 RESTORE 35388 

2546 REM ROOK 
3556 FOR 2=1 TO 
3568 READ R¢Z> 
sor@ NEXT 2 
3588 DATA 14,206,306: 44,58 
> 68; 78 

2598 DATA -1,-2,-3,-4,-5 
2762-7 

3668 DATA -1@,-208,-38,-4 
4,-56,-68,-748 

3618 DATA 1,.2:3,4,5,6:7 
2520 RESTORE 3674 

2638 REM BISHOP 

3646 FOR 2=1 TO 22 

365@ READ BC2Z) 

2666 HEAT 2 

3676 DATA -11:-22;—-33:-4 
4,-55,-66;-77 

2636 DATA 11,.22,33:44,55 
266,77 

7694 DATA 9,18,27, 36,45, 
24,63 

2766 DATA -9,-18:-27,-36 
? -45, -54, -63 


bh 
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RESTORE 3598 
HW REM QUEEN 
FOR 2=1 TO 56 
READ @ce2> 
HEAT 2 

ay RESTORE 3914 
3778 REM KING 

378a@ FOR 2=1 TO 8 
ZY96 READ K¢23 
SeH8 HEAT 2 

2818 DATA 1,-1,11,-11,9: 


3820 FOR 2=1 TO 64 
3838 READ St) 

284@ NEXT 

Z85@ DATA 46; 56, 36>66-47 
ars 45:55 

2860 DATA 37:-67>35;,65; 26 
ras Sra Pe 

3878 DATA 44:54; 26.76.38 
263,17,87 

2388 DATA 18,98.34-64;25 
: Vo: 16386 

ZB9@ DATA 48.24.74;,15:85 
714.24,43 

3988 CATA 53:-33:63. 23.73 


2d2742562 
3916 DATA 32,983.13: 72,22 
212,52;41 


2928 DATA 51-31-61:.21:71 
+11,81;58 
2938 FOR 2=1 TO 14: SQUND 
221i SOUND? 28-22 LENERT 
734@ RETURN 

ebe 5 REM Sas 
5 =11 To So:ec2 


3978 "FOR 2 =11 TO 88: 4=2- 
TBRINTEZ/10) 
2969 IF x= OR X=9 THEN 
4aHa 
3998 ACZIHZCS+9-HKZ 
4806 HEAT 
4819 FOR 2=11 TO S5:M=Ac 


“4 
oi! 
2. 


2399 


4020 IF M>=B THEN ACZ2=A 
CE )+PB-P 

4930 IF M¢=RB AND M>=BB 
ACZI=ACZ3-PR+P 


NEAT 
2a RETURN 
469 LFRINT TABCG2: "ABC 
DEF SHE" 


487 FOR X=8 TO 1 STEP - 
4900 LPRINT TABC3)3" "3K 
4090 FOR Y=19 TO 8@ STEP 

89 LPRINT CHRECACH+Y)) 


4 
4119 NEXT ¥ 
4128 LPRINT * 


$138 HEAT «4 

4144 LPRINT TABLE: “MRBC 
CEFGHE" 

4158 LPRINT:LPRINT: LPR IH 
TILPRIWT 

4168 RETURN 

4178 ON CINTCRNDCL edad) 
3 GOSUE 4190, 4268, 4230.4 


1:1:SQUND 2.1 


PRINT "Well dome" 
4 GOSUB 4236 
RETURH 
FRINT “Good mowe! 
A EnSUB 4298 
RETURH 
PRINT "aot me" 
GOSUB 423a 
1 RETURN 
4295 FOR T=1 TO 1@@:WERT 
 RETURH 


300 


Now here is the truncated version of that program: 


18 REM DANCING BEAR 
CHESS ¢iis 

44 DEFINT A-Z 

54 GOSUB 3148 

eo GOTO 98 

7H GOSUB 2764 

248 GOSUB 34858 

96 GOSUB 2764 

166 MM=8 

11@ INPUT As 

120 IF AS="X" THEN GOSUB 
3966: G0T0 36 

13@ IF AS="P" THEN GOSUB 
4064 

166 FOR 2=1 TO 16:T¢2Z>=6 
?HEXTs U=8 

26a FOR Q=1 TO 64: 1F acs 
CQI93=BB AND ACSCQ>><=RB 
THEH U=U+12TCUd=S¢CQdl IF 

ACSC(Q)9=KB THEN KM=S¢Q3 

216 HEXT Q°IF U3 THEN 2 
398 

228 GOTO 74a 

246 FOR Q=1 TO USIF Tct> 
=KB THEN TéQo=TCUo: Teas 

KE 

268 NEXT & 

2P@ G=INTCRNDC 1 #3 aC CAS 
att 3413 

288 D=C+1 

298 2=T¢OQ3:GU5UB 358 

314 IF MM=1 THEN GOSUE 2 
B98:G0TO Fra 

330 IF O{U THEN 288 

248 GOTO 2556 

350 IF ACZ»=0B THEN GOSU 
B 19208 

366 IF AC23=RB THEN GOSU 
B 1298 


B 1558 


388 IF ACZ>=NB THEN GOSU 
B 18h 
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390 IF AC2s=PB THEH GOSU 
B 2416 

408 RETURH 

41 IF Acéo=187? THEM PRI 
HT "CHECK! "8 G=Q+1: 607029 
iS] 

430 IF #+9>85 THEN 454 
449 IF ACK+99<83 AHO Acx 
+90>65 AND RMD) <a. 96 
THEN RETURH 
434 IF #-11<¢11 THEN 486 
$66 IF Atx-ils¢83S AND Ac 
Ho112>65 AND RNDCL? <a.9 
& THEN RETURN 
458 AD=@ 

498 AY=1 

SBE AKEA+ECAY+AB) 

S18 IF AX<11 OR AX>RB3 TH 
EM S46 

S28 AP=ACAK) 

239 IF AP=0 OR AP=R AND 
RHOC19 28.3 OR AP=B AND F 
MDCls38. 5 THEN RETURN 
249 AY=AY+1 

S58 IF AY<&S THEN 5aa 
soe AD=AD+? 


SP°8@ IF Abs56 THEN 435 
S96 Av=l 

6H AX=K+NCAYo 

B1l@ IF AX¢11 OR AX>88 TH 
EH 634 

626 IF ACAKX=N THEN RETU 
FM 

636 AY=AY+1 

646 IF AY¢o THEH 680 

6669 AY=1 

e7@ AMSKtK CAYD 


ech IF A&<11 OR AK>8B TH 
EN al) 
636 IF CACARS=SK OR ACARD 
=P) AND RHOC 1326.1 THEM 
RETURN 
PaO AY=HAY+1 
716 IF AYS9 THEN 6768 

r2a MM=1 
P3a RETURN 
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74a Z=KM 
770 Y= 

78a Yev+1 

TaG KEE+NCY 

800 IF X<11 OR X>83 THEN 


S16 IF ACK *=N THEN 1394 
826 IF eS THEN ree 

B48 b=8 

5a Yoo 

S60 BeZ+tOcy+Do 

S76 IF #«¢11 OR #>8s THEH 
328 
586 IF ACKI=B OR ACKi=o 
GR ACKI=R THEN 1996 

398 IF ACKI< SE THEN 928 
3A YoV+l] 
314 IF YS THEN 360 
926 D=0+7 

320 IF O<56 THEN 864 
958 #=2+11 
964 IF 388 THEN 338 

7@ IF Ack2=F THEN 1998 
988 H=2-11 
998 IF *<11 THEN 244 
190@ IF Ack »=F THEN 1958 
1816 GOTO 246 

1828 D=8 

1644 Y=1 

1B5@ K=Z+OCY+D9 
1666 IF ¥<11 OR K>83 THE 


” 
i 
— 
Pin] 


1076 IF ACK =d2 OR AGNI 
=BB AND ACKO<=RB THEN 11 
28 

1886 IF ACK) 2=B AND ACHS 

<=R THEM GOSUB 41@:1F MM 
231 THEM 1129 

3a IF MM=1 THEN RETURN 

188 Oe es 

116 ni Wie THEN 1858 

1126 D =D+7 

1136 IF D<Sé6 THEN Lede 

1148 RETURH 
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1168 D=a 
Live Yv=i 
Lis K=2+heV¥+D> 
1196 IF «£11 OR ¥>8S THE 
NM 1258 


1206 IF ACKO< SE THEN 125 
a 

1216 IF RNDC19>@.5 THEH 
GOSUB 416: IF MM=@ THEN 1 
2568 

1226 IF MM=1 THEN RETURH 
1238 Y=t+1 

i24@ IF ¥<8 THEN 11388 
1256 D=D+7 

1266 IF O¢56 THEN 1178 
1278 RETURN 

iz98 D=a 

126@ Y=1 

1Z1@ B=Z+RC¥+D) 

(320 IF X<11 OR #488 THE 
HM 1288 

1336 IF ACxs=42 OR ACK > 
=BB AND ACHIC=RB THEN 13 


1246 IF AtC#)>=B AND ACH 
<=R THEN GOSUB 416: IF MM 
=@ THEN 1286 

1256 IF MM=1 THEN RETURN 
ité6a Y=+1 

376 IF ea THEN 1318 
1388 b=Db+? 

1296 IF B¢28 THEN 12300 
14@@ RETURN 

1424 B= 

1436 Yel 

1440 R=Z+kCY+0 

1456 IF #ei1 OF #>88 THE 
M1518 

i46@ IF AcHo<3OE THEN 181 
a 

1476 IF RWNOCL2<4. 1 THEH 
GOSUE 418 

1466 IF MM=1 THEN RETURN 
1458 Yot+i 

i566 IF Yee THEH 1446 
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i516 b=D+? 

1526 IF B¢28 THEM 1436 
i338 RETURH 

1558 D=8 

La6e Y=1 

157r@ REZ+BCV+D> 

1388 IF #11 OR #388 THE 
1646 

1596 IF AtK)=42 OR ACK? 
=BB OR AXS=RE THEN 1648 
1689 IF ACHOS=E AND ACK 
fk THEN GOSUB 41@:1F MM 
*1 THEM 1644 


16 IF MM=1 THEN FRETURH 
1 

ifz & THEN 1578 
1640 b=f+) 

1656 IF Ces THEN 1546 
1668 RETURN 

1686 D=4 

1694 ie 1 

1760 HSE+BcV+Do 

if1a IF eiili OR K>88 THE 
H 1? Fa 

1728 IF Ac#Hd<2E THEN 17? 
a 

if36 IF RHD¢13>8.85 THEN 


GOSUB 41Q:1F MM<>1 THEN 
Pre 

i74@ IF MM=1 THEN RETURN 

1750 V="+1 

1764 IF VS THEN 1798 


D=D+7 
IF b<28 THEN 1696 


co mJ 


od 
as ia | 

Scr 
[oa mim 


RETURM 

Yad 

x= 2 e+Ncy, ‘t 

36 IF #¢11 OR #388 THE 
1378 

846 IF Atka=42 THEN 187 


q 


Re pet PE Re 


remy an) cc “J 


— 
hen 


a 
re an 
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1850 IF ACN) 3=B AND ACHD 
<=R THEN GOSUB 414 

186G IF MM=1 THEN RETURN 
1878 W=V+1 

1884 IF Y<9 THEN 1820 
1898 RETURN 

1518 Y=o 

1920 X=Z+NCINTCRNDC 1948+ 
19> 


12958 IF #11 OR 4233 THE 
194° IF AC#I=42 THEN 132 


1950 Yat. 

1968 IF Ats3=E THEM GOSU 

6 418 

ree IF MM=1 OF Y>28 THE 
4 RETURM 

986 GOTO 1320 

398 YE=1 

Hi 2=KM 

4 BSEtK CVE E x1= 

B36 IF #211 OR 4588 THE. 

H 2368 

Sad IF Ate#o=42 OR ACKI> 

65 AND ACKI<83 THEM 2368 

SASH IF ACK3>97 AND ACK) 

<115 THEN 2364 

S860 2=K 

Shoe Y=! 

2A9IB Yal'+1 

TOG Hass 

2116 IF x<11 “OR Beas THE 

H 2136 

2126 IF ACko=N THEM 2264 

2134 IF “8 THEN 2698 

2158 B= 

2160 Y=1 

BIPS HeZt+Ocy+D> 

2186 IF X<11 OR HOSS THE 
4 22368 

2196 IF ACKS=B OR ACKo=0 
ORF A¢s>=R THEN 2368 
SEG IF ACwoc SE THEN 223 

A 

22148 Yolt+1 

S22?@ IF Ya THEN 217a 
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@ D=D+7 

IF D<56 THEN 217 
SeZt11 

IF X388 THEN acne 
IF ACKI=P THEM 22665 

=2-11 

IF X<11 THEN 2320 
IF ACKI=P THEH 2364 

28 X=X18Z=KM 

A MM=1 

GOSUB 269@:G0TO 7a 


IF VWK<a THEN 214 
2398 PRINT "I CONCEDE: C 
HAN! 1" SEND 

S419 R=Z+9 

2436 IF ACKI>=B AND ACH) 
<=R THEN MM=1:°IF Acxo=F 
AMD RNDCLo<@. 2 THEN MM=6 
2446 IF nit= 1 THEN RETURN 
2 6 IF 2=12 THEN RETURN 


3478 IF ACKIS=B ANE Ac? 
<=R THEN MM=1:IF ACP 

AHD RANDY 19¢8. 2 THEN MM= 

2488 RETURN 

S500 IF 2-10*CINTC2Z*18%3 

=? AND ACZ-12=E AND Acz- 

2 sE AHbcacs-L2 .=E OR AC 
2-133=42 » AND CAC tate i 

OR Ace+P3=429 THEN B=2-28 

MM=1: RETURH 

2918 IF ACZ-19=E AHD ALS 
-129¢98 AND ACzZ+B9<¢98 TH 

EN “Me?-1: NM=1:RETURH 
S528 IF RNS 13< (4.1 AND A 
CS-15=6 THEN x=2-Lihh=1 
S538 RETURH 

S558 Q=INTCRHDe 12*RNDC 1 

#95:2IF QoUl THEN 2558 
ESPa G=O+1 

B58@ 2=TtOs 

2590 IF AacS2=PB THEN Gos 

UB 2568 
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2608 IF A¢z9=NB THEN GOS 
UB 1918 

26186 IF A¢2>=BB THEN Gt 
UB 1688 

262@ IF acfz>=RB THEN GOS 
UB 1428 

2630 IF a¢2>=QB THEN 60S 
WB 11648 

2649 IF ACZ>=KB THEM GOS 
UB 1996 

26589 IF MM=—8 AND O<L! THE 
NH 25768 

IF MM=1 THEN GOSUB 


IF MM=1 THEN GOTO 7 


GOTO 2398 

3 ACH ISAC S38 ACZI=E 

2728 PRINT "Io moved from 
2734 PRINT CHREC INT{2Z-148 
3+6455 02 MOD 1633" to " 
SCHREC INT Ose 1eo+64a3ck M 

OD 16> 

2758 RETURH 

2768 IF MM=8 THEN 27a 
SYS AF=INKEYS: IFAS< 3" 
TREN SOUHD RNDC1>*5a., 1: 
ya 730 

: ae GOSWB Sasa 

A FOR ¥=9 TO 1 STEP - 


PRINT TABCS33 "Bass 
FOR YV=18 TO 88 STEP 


836 IF Acv+19=PB THEN & 

iN41 208 

S840 IF acy4+So=P THEN fie 

W489 =i 

SES PRINT CHRECACHK TY os 

68 HEST VWiPRINT #iHEXT 
iMM=a 

25998 PRINT TABCG2 “BRECD 

EF GH" > 

2314 RETURH 

2324 Z=KM 
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d MW M=2tk COE? 

2958 IF ACMs=42 OR ACMo> 
65 AND AGMaSSS OF MM=a T 
HEN 2888 

ay wal 

86 KM=x 

9@ RETURH 

IF QE<8 THEN 2346 
IF Age2="C" THEN RET 


BOTO 2338 
S856 PRINT! IHFUT "FROM ¢ 
LETTER: HOO" 3 a 
[S60 PRINT Ags" TO"s 
IHFUT BF 
TASH S=1OeCASCCA$)-B4 541! 
ALCRIGHTE¢As. 199 
SS9G YS=LOeCASCOBS)—-B4 3+) 
ALC RIGHTECBS. 19) 
S1i8@ IF AcVas=75 AWD ACY 
s{=62 THEH GOSUB 4176 
SLliB ACVIsACHa ACK s=derk 
ETURH 
2148 RANHDOMIZE VALS RIGHT 
ECTIMES, 29% 
S189 DIM Acgos. Ree 
S3,HC89,O0C582.KC: 
»SCbda,TO16) 

tH P=L1i2:R=1L1i4diN=11896 
PO=113°K=187:6=46 
220 PB=Sh:RE=82:NB=Pear6 
6! B= 81: iy oath ae 


5oa.7 = 
D> ?6o;6 
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nda oe 16.46, 26,46, 36 
46. 46: 

3258 BATA 56: 46;,66:46, 76 
246,56-46 


S368 DATA 15.46,25,46,35 
»46,45 a: 46 


3380 DATA 14.46.24, 46,24 
»46,44,46 

2298 DATA 54-46,64, 46, 74 
»46,.64,46 

2490 DATA 12:46,23.46,35 
246,493.46 

T418 DATA 33-46,635,46, 7°53 
:46,53.46 
3420 DATA 12,112,22,112; 
22112; 42: liz 

38 DATA S2-112,62-112; 

o31L2: S2.112 

7449 DATA 11.114,21.118, 
21.96,41,113 

B450 DATA 31,-197,61.98.7 
1,114,31,114 

petes FOr: 2=1 TO S:REAG H 


a pata 19,-19,21,-21; 
f12.=12 
| FOR Z=1 TO 28:READ 
PStHEAT 2 
88 DATA 16,20,30.40.50 


DATA -1:-2,-3:~-4,~-5 


DATA 1, 2:34; 

FOR 2=1 TO 28 

TNE Te 

re DATA -11,-22.-7-33,~-4 
ao: -66.-77 

6 oe 11,22,33:44,55 
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fer, 36,45, 
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2788 DATA -3.~-18,-27>-36 
-34,-63 

Tete 3588 
Fo =1 TO 36: READ 


S:READ k 


a DATA 1.-1;11;-11.,4: 
1f,-18 

3 FOR e=1 TO 64: READ 
NSHEAT 2 

38 DATA 46. 56,36:.66;47 
7.45,55 

S868 DATA 37:67,35-695, 25 


340 “RETURN 

"966 FOR 2=11 TO 88i2ce3 
DE HEAT 

1 FOR 2=11 TO so:x=2- 
#IHT Cee 18) 

1 IF K=8 OF #=9 THEM 


3390 ACZISZCZ+9-NAZD 
4908 NEXT 
4819 FOR Z=11 TO go:M=ac 


at Mo=B THEN ACe3=4 


C=RB AND M>=BB 
=A 2 -PB+P 

A NEXT!RETURN 

4260 GOSUB 414i 
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47a FOR H=8 TO 1 STEP - 
4888 LFRINT TARE S33" 

4090 FOR Y=16 TO 88 STEF 
$168 LFRINT CHRECACK + 


4118 NEST 

4128 LPRINT 

4138 HEST & 

414@ LPRINT TABCS 3s "BREC 
DEF GHEE" 

3168 RETURH 

$170 ON CINTERNDE Led o41 
1 GOSUB 4198. 4288, 4230, 4 


SOUND 1.1:SOUHD 2, 1 
SSOUHD 1,1 

$138 RETURN 

: - PRINT "hied] done" 
@ GOSUB 4298 

‘4 RETURM 

PRIMT "Sood move" 
SOSUB 4238 

RETURH 

PRINT “Got me" 
BOSUB 4294 

RETURM 

$258 FOR IT=1 TO 1@6:HEXT 
RETURN 
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CHAPTER SEVENTEEN — IMPROVING YOUR PROGRAMMING 
TECHNIQUE 


There will come a point in your development as a 
programmer when you'LL have mastered the use of much 
of BASIC, and can now concentrate on writing better 
programs; programs which work after relatively 
Little debugging, which are easy for others to 
understand and operate, and which are written 
Logically and elegantly. Some hints as to how you 
can approach these aims are given in this chapter. 


Your programs will be more Likely to run first time 
if they are planned out carefully before you start 
entering code (and code is a synonym for program) 
into your computer. 


A good way to start is to use a diagram which is 
often called a ‘flow chart'. A flow chart is a 
series of boxes and other shapes, joined by Lines, 
which show the flow of action and decision-making 
within the computer while the program is_ running. 


The shapes used are not too important, and I suggest 
you stick to just two: a rectangle for most actions 
the computer must carry out, with a diamond’ shape 
each time the computer has to make a decision. The 
corners of the diamond can be used — as you can see 
in the diagram at the top of the following page —— 
to cater for the alternatives facing the computer. 


The diagram shows the flow chart of a program which 
sets the variable X equal to zero, then adds one to 
it. The value of X is checked. If X is founded to 
be Less than 20, the program goes back to add one to 
X again. This continues until the value of X equals 
20. 
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END <——Nno<— 


One advantage of using a flow chart is that you do 
not get Locked, at an early stage of your work, into 
the peculiarities of the BASIC, its weaknesses and 
strengths, which is available on your computer. 
Instead, you concentrate on what you want to do. Of 
course, you may have to modify your plans’ slightly 
to accept Limitations dictated by your BASIC, but 
you do not have to bend to these Limitations (which 
may be, in part, imaginary) at the start of the 
process. 


A flow chart is 'universal'. The same flow. chart 
can be used as the basis of a program written on a 
computer furnished with a completly different BASIC, 
or even for a computer which has a Language other 
than BASIC on board. 


A flow chart models the flow of action and _ Logic 


within a program, and is therefore very useful for 
picking up potential bugs at the earliest stages. 
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You may, for example, find that one condition for 
the program will test will never be fulfilled, 
possibly leading to the program being trapped in an 
infinite loop. Other parts of the code may be by- 
passed completely, because the condition which 
triggers entry into that part of the code will never 
be met. 


Once you've devised a flow chart for your’ program, 
and you've run through it mentally a few times, so 
that the most obvious bugs are removed, you’ should 
reduce the flow chart to a series of subroutine 
calls. Although it seems pretty silly to do this 
for a simple program Like our "SET X EQUAL TO ZERO, 
ADD ONE, CHECK IF IT'S LESS THAN 20" program, this 
method comes into its own with complex programs. 


You start the program with a series of subroutine 
calls, with each action of the program being Looked 
after by a separate subroutine. Then, if the steps 
within a program have to be performed several times 
in a particular sequence, the series of subroutine 
calls can be cycled through — over and over again 
— until a particular condition is met which signals 
the end of the run, 


You'Ll recognize how useful this approach to 
programming can be when you get to the debugging 
stage of your program. If there is a bug, it is 
Likely to be within a single subroutine, so it will 
be relatively easy to pin down the subroutine which 
contains the bug, rather than having to work right 
through the program trying to track it down. 


Working with subroutine 'modules' in this way allows 
you to test sections of the program in isolation, 


even before the entire program is’ finished. T'tl 
try to make this statement clear by showing you’ the 
first part of a typical program to play Checkers. 
The program could start Like this: 


10 REM CHECKERS 

20 GOSUB 9000: REM INITIALISE VARIABLES 

30 GOSUB 8000: REM PRINT BOARD 

40 GOSUB 7000: REM ACCEPT PLAYER MOVE 

50 GOSUB 8000: REM PRINT BOARD 

60 GOSUB 5000: REM COMPUTER MAKES MOVE 

70 IF (human has not won) AND (computer 

has not won) THEN 30 

80 IF (computer has won) THEN PRINT "I WIN" 
90 IF (human has won) THEN PRINT "YOU WIN" 
100 END 


You could quite a bit of this program running, and 
tested (such as the initialisation routine, printing 
the board and accepting the player's move), before 
you even turned your attention to how on earth you 
were going to get the computer to make its move. 


You would then know — for example — that you would 
not need to waste any extra thought on whether or 
not an error in the board-printing routine was’ the 
cause of odd output. Having tested the board sub-— 
routine and the player move routine, you'd know that 
the error must be in the subroutine between Lines 
5000 and 6999, the subroutine in which the computer 
makes its move. 


ALL you need to do is put a single PRINT statement, 
such as "THIS IS COMPUTER MAKING A MOVE" followed by 
a RETURN for incomplete subroutines, knowing that 
the program will accept that, and demonstrate the 
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direction the program flow is following, even if 
whole sections of code have not yet been written. 


In general, I'd advise you to use this system of 
using a ‘master Loop' of subroutine calls within 
which you will 'hold' the entire program. If you 
look at the CHECKERS program in this book, you'Ll 
see that most of the action is held within the sub- 
routine calls which fall between Lines 110 and 140. 
You'LL see that Line 110, GOSUB 680, directs action 
to Line 680 where the computer prints up the board 
and Line 120, GOSUB 850, does the same with the 
routine which accepts the player's move. 


I. suggest you try and do as much writing of the 
program as possible before you turn the computer on, 
even though there is a great temptation to dive 
straight into the computer and start punching in 
code. You'Ll find that the discipline of writing it 
out by hand in advance will serve you in good stead 
and should, in the Long run, produce a_ better 
program than might otherwise have been the case. 
Overall, you'LlL probably end up spending up Less 
time on the program working in this way than you 
would if you began the process sitting at the comp-— 
uter keyboard. 


It took me a while to Learn this lesson. Although I 
had read suggestions along the lines of ‘work out 
exactly what you're going to enter before you start 
at the computer' in several books, I tended to just 
jump right in without much prior thought. 


Although I worked out rough flow charts, and had an 


idea what sort of display organisation I wanted, I 
certainly did not write much program out on paper 
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before starting at the computer. Then, I once found 
myself stuck for a two-week period without a computer 
and ideas for several programs just itching to be 
written. I had to write them out in an exercise 
book. 


The relative ease with which the programs were 
debugged when they were eventually entered into the 
computer, and the complexity of the programs I wrote 
in this way (including my first Chess program) con- 
vinced me that this was the way I would work from 
then on. It is amazing how much cleaner a_ program 
can be if all the rough working out is done on 
paper, rather than on the computer screen. 


At present, I tend to write the major 'call sub-— 
routines lLoop' first of all, but without Line 
numbers, so the program contains Lines Like GOSUB 
PRINT BOARD and GOSUB INITIALISE. Next, I write 
each module (or subroutine) on a separate sheet of 
paper. Then, when the major subroutines have been 
written I shuffle them into an order which’ seems 
most logical. 


ALL this, of course, occurs before any Line numbers 
are written in. The subroutine modules are put’ in 
an order which ensures that the program structure is 
as logical as possible. I use arrows to indicate 
the destination of GOTO's within a module, and names 
for subroutine, as suggestion in the major’ Loop. 
Later on, when the program has started to assume a 
firm shape, the Lines are numbered (I always work in 
tens, starting at Line 10) and the relevant GOTO and 
GOSUB destinations are added. 


ALL programs have an ‘end condition’ at which point 
computation stops. It is worth putting a test ffor 
this end condition as part of the GOTO which sends 
the program back to start cycling through the major 
subroutine Loop. This ensures that the cycle will 
continue until a particular condition is met, at 
which point the program 'falls through' that GOTO 
and continues on to the Lines which signal the end 
of the program. 


EXPLICIT INPUT PROMPS AND PRINT STATEMENTS 


It is very useful, when writing a program, to keep 
in mind how the program will appear to a_ stranger 
when it is run by him or her for the first time. If 
there is an input prompt required, it is far more 
useful if the program prints up something Like "HOW 
MANY HOURS HAS THE EMPLOYEE WORKED THIS WEEK?" 
instead of just "INSERT HOURS?" or the almost 
useless Lone question mark. 


The same suggestion applies to print output. It is 
far better that your program is written so that it 
prints out THE NUMBER OF HOURS WORKED ON FULL PAY 
THIS WEEK IS 27, rather than HOURS, FULL: 27 or an 
unsupported 27. Of course, providing explicit input 
prompts and output PRINT statements consumes memory 
as well as typing time when entering the program, 
but the contribution they make to the final program 
means the trouble involved is well worth it. 


REM STATEMENTS 
While exact PRINT statements and input prompts will 


help a person running a program make sense of it, 
REM statements can help make the program clear’ to 
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those who are examining the Listing for the first 
time. REM statements (which are, as you_ know, 
ignored by the computer when a program is_ run) 
should be used to help illuminate the flow of Logic 
within the program, and what is happening in certain 
places within it. This is especially important in 
parts of the program where decisions are made, or 
calculations are carried out. 


Not only can REM statements be used to explain diff-— 
erent parts of the code, but they can also be used 
to provide visual 'breaks', so that the various 
blocks of code which carry out certain tasks are 
visually separated from the rest of the program. A 
blank REM statement (the word REM standing alone in 
@ program Line) can be used for this. A row of 
asterisks is an effective alternative. 


VARIABLES 


It is worth considering the use of explicit names 
for variables, using either the word in full (such 
as HOURS as a variable name in a payroll program for 
hours worked) or an abbreviated version of this 
(such as HR) which has a fairly obvious meaning. 
You'll discover that this makes it easy, when 
working on a= program, to keep track of your 
variables. This will help you with the initial de- 
bugging and Later on as well if you need to improve 
or extend the original program. 


Explicit variable names also help make your code 
more 'transparent' so other programmers can work out 
what the various parts of the program are’ intended 
to do. You'll also find it a great help to yourself 
when you return to the program at a later date. It 


is surprising how code which seemed incredibly clear 
it terms of its purpose when you entered it, becomes 
exceedingly dense when you return to it after a Long 
break. 


CHECKING INPUT 


Any input entered by the user should be checked by 
the program before it is accepted to ensure that 
incorrect data does not cause the program to crash 
at some future point. Whether you want string, or 
numeric input, it is often wise to allow for string 
input, which is’ first checked to see whether’ the 
entered material is acceptable and then, if 
necessary, the string can be changed into a number. 


For example, if the user needs to enter a number 
between one and nine, a string can be accepted and 
then checked to ensure that it is not Less than "1" 
amd more than "9" before being changed into a number 
with VAL. 


As well as ensuring that the program will reject 
invalid input, you should check the program to see 
all the inputs which it does accept produce sensible 
answers when processed Later on in the program. For 
example, make sure that your program does not accept 
zero as a possible number if the computer must Later 
divide by this number. Similarly, if numbers are 
to be processed by a function, and then the result 
of this processing used for division, you must check 
that an apparently valid input does not turn’ into 
zero as a result of evaluation by the function. 


If the information entered by the user is rejected, 
and a new input is requested, the program’ should 
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ideally point out why the original input was not 
suitable, or spell out again exactly what is 
required (such as "ENTER A NUMBER BETWEEN 1 AND 4"), 
You risk making users angry if input which appears 
valid is continually rejected without apparent 
reason, 


DOCUMENTATION 


The written material which accompanies a program is 
often called documentation. It is useful for a 
program to be supported by some documentation, 
however sketchy. The written information should 
explain, of course, what the program does, then go 
on to outline the flow of action within the program. 
The documentation should alert the user as to the 
kind of actions which will be required from him or 
her when running the prohram, and give an indication 
of the kinds of user input and reaction which will 
be accepted. 


The format of the final output should also be dis-— 
cussed. A List of variable names can be included. 


If there are ways in which the program can be 
developed, extended or improved, suggestions along 
these Lines can be added to the documentation. 
Written references to any material which will help 
in understanding the algorithms used, or for giving 
suggested areas for program development, should also 
be included. 


In many ways, it is reasonable to assume that the 
job of programming is not finished once the’ program 
is done. Without documentation, the job is only 
three-quarters complete. Documentation finishes the 
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task, adding a professional stamp to your work which 
allows the program you've written to be used most 
effectively. 


Possibly the only time extensive documentation is 
not really required is when the program is 'menu- 
driven'., A program which uses REM _~ statements 
extensively may not need very much in the way of 
documentation, especially if you can include a 
variable List, as a series of REM statements, at the 
end of the program. 


Generally, however, you'LL find it better to 
document a program externally, rather than rely on 
REM statements, or the various menu choices, to do 
the job for you. It is worth trying to write your 
program documentation so that it would make sense to 
someone who has not seen the program running. 


This person should be able to get a very good idea, 
just from reading the documentation, of what’ the 
program does and how it does it; how it interacts 
with the user both in terms of accepting information 
and in presenting the results of its computations to 
the users; and how the program is organised as a 
who Le. 


Documentations for a major program should start with 
an introduction which quickly explains what is going 
on, and tells how to use the program. The later 
parts of the documentation can then discuss’ the 
program in greater detail. It is not good practice 
to force the user to wade through a vast amount of 
information in order to dig out the vital facts he 
or she needs to get the program running. 


APPENDIX — SUGGESTIONS FOR FURTHER READING 


As you've probably discovered by looking in your 
local bookstore, computer shop or Library, the 
number of computer books is enormous, and growing by 
the hour. In this appendix, I will not even attempt 
a comprehensive overview of the field, but will 
simply List the books I have found personally 
worthwhile. The List includes books which have 
taught me about the flexibility and potential of 
computers. Others have acted as 'idea_ starters’. 
These should trigger in you —- as they did in me - 
ideas for applications, programs and exploration. 


BASIC BUSINESS SOFTWARE - Brooner, E.G. (Howard W 
Sams & Co. Inc., Indianapolis, Indiana, 1980) 


BASIC COMPUTER PROGRAMS FOR BUSINESS, volume one 
Sternberg, Charles D. (Hayden Book Co., Inc., 
Rochelle Park, New Jersey, 1980) 


BASIC COMPUTER PROGRAMS FOR THE HOME’ ~- Sternberg, 
Charles D. (Hayden Book Co., Inc., Rochelle Park, 
New Jersey, 1980) 


BASIC COMPUTER PROGRAMS IN SCIENCE AND ENGINEERING — 
Gilder, Jules H. (Hayden Book Co., Inc., Rochelle 
Park, New Jersey, 1980) 


BASIC FUN - A KID'S GUIDE TO BASIC PROGRAMMING - 
Lipscomb, Susan Drake and Zuanich, Margaret Ann 
(Avon Camelot, New York, 1982) 


BASIC, GETTING STARTED — David, William S. (Addison— 
Wesley Publishing Co., Reading, Massachusetts, 1981) 
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THE BASIC HANDBOOK - Lien, David A. (Compusoft 
Publishing, San Diego, California, 1979) 


BASIC PROGRAMMER'S NOTEBOOK - Savage, Earl R. 
(Howard Sams & Co. Inc., Indianapolis, Indiana, 
1981) 


BASIC WITH STYLE — Nagin, Paul and Ledgard, Henry F. 
(Hayden Book Co., Inc., Rochelle Park, New Jersey, 
1978) 


THE BASIC WORKBOOK — Schoman, Kenneth E. Jr. (Hayden 
Book Co. Inc., Rochelle Park, New Jersey, 1977) 


BEGINNER'S GUIDE TO MICROPROCESSORS - Parr, E. A. 
(Newnes Technical Books, Butterworth, London, 1982) 


THE BEGINNER'S GUIDE TO BUYING A PERSONAL COMPUTER - 
Mansfield, Richard, et al (COMPUTE! Books, 
Greensboro, North Carolina, 1982) 


BUSINESS CALCULATIONS - Bird, J.O., and May, A.J.C. 
(Longman, New York, 1980) 


BUSINESS INFORMATION PROCESSING WITH BASIC - 
Struble, George (Addison-Wesley Publishing Co., 
Reading, Massachusetts, 1980) 


CHESS AND COMPUTERS — Levy, David (Computer Science 
Press, Inc., Potomac, Maryland, 1976) 


COMPUGUIDE, A CONSUMER'S GUIDE TO SMALL BUSINESS 


COMPUTERS - Ejischen, Martha (dilithium Press, 
Beaverton, Oregon, 1982) 
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COMPUTERS FOR EVERYBODY - Miller, Merl and Willis, 
Jerry (dilithium Press, Beaverton, Oregon, 1982) 


CONTINUING BASIC -— Gosling, Peter (The MacMillan 
Press Ltd., Basingstoke, UK, 1980) 


THE CP/M HANDBOOK —- Zaks, Rodnay (Sybex, Berkely, 
California, 1980) 


THE DAILY TELEGRAPH CALCULATOR BOOK - King, David 
(Daily Telegraph, London, 1979) 


DEVELOPING COMPUTER SOLUTIONS FOR YOUR BUSINESS 
PROBLEMS — Petersohn, Henry H. (Prentice-Hall Inc., 
Englewood Cliffs, New Jersey, 1982) 


80 PRACTICAL TIME-SAVING PROGRAMS FOR THE TRS-80 - 
Carroll, Charles J. (TAB Books, Inc., Blue Ridge 
Summit, Pennsylvania, 1982) 


FINANCIAL ANALYSIS BY CALCULATOR - Mullish, Henry 
and Kestenbaum, Richard (Prentice-Hall, Inc., 
Englewood Cliffs, New Jersey, 1982) 


GUIDE TO GOOD PROGRAMMING PRACTICE -— Meek, Brian and 
Heath, Patricia (eds) (John Wiley & Sons, New York, 
1980) 


INTRODUCTION TO BUSINESS SIMULATION — Frazer Ronald 
(Reston Publishing Co. Inc., Reston, Virginia, 1977) 


HOW DID WE FIND OUT ABOUT NUMBERS? - Asimov, Isaac 
(Walker and Co., New York, 1973) 


HOW TO WRITE AN APPLE PROGRAM — Faulk, Ed (Reston 
Publishing Co. Inc., Reston, Virginia, 1982) 
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THE MAKING OF THE MICRO - Evans, Christopher 
(Victor Gollancz, London, 1981) 


THE MARTIN BOOK OF MANAGEMENT CALCULATIONS - de 
Lisle, Christian (Woodhead—-FauLkner Ltd., Cambridge, 
UK, 1979) 


MATHEMATICS FOR PRACTICAL USE - Nielsen, Kaj L. 
(Barnes and Noble Books, Harper & Row, New York, 
1962) 


MICROCOMPUTERS AND THE THREE R's -— A GUIDE FOR 
TEACHERS - Doerr, Christine (Hayden Book Company, 
Inc., Rochelle Park, New Jersey, 1979) 


THE MOST POPULAR SUBROUTINES IN BASIC —- Tracton, Ken 
(TAB Books Inc., Blue Ridge Summit, Pennsylvania, 
1980) 


PERSONAL COMPUTER — HOME, PROFESSIONAL AND SMALL 
BUSINESS APPLICATIONS — McGlynn, Daniel R. (John 
Wiley & Sons, New York, 1979) 


THE PROGRAMMER'S BOOK OF RULES —- Ledin, George Jr., 
and Ledin, Victor (Lifetime Learning Publications, 
Belmont, California, 1979) 


SIMPLE BASIC PROGRAMS FOR BUSINESS APPLICATIONS - 
Alonso, J.R.F. (Prentice-Hall, Inc., Englewood 
Cliffs, New Jersey, 1982) 


A 60-MINUTE GUIDE TO MICROCOMPUTERS - HolLlerbach, 


Lew (Prentice-Hall, Inc., Englewood Cliffs, New 
Jersey, 1982) 
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THE SMALL COMPUTER IN SMALL BUSINESS —- Smith, Brian 
R. (Stephen Greene Press, Brattleboro, Vermont, 
1981) 


SOME COMMON BASIC PROGRAMS (3rd edition) - Poole, 
Lon and Borchers, Mary (Osborne/McGraw Hill, 
Berkeley, California, 1979) 


USING MICRO-COMPUTERS IN BUSINESS, A GUIDE FOR THE 
PERPLEXED —- Veit, Stanley S. (Hayden Book Company, 
Inc., Rochelle Park, New Jersey, 1981) 


WHY DO YOU NEED A PERSONAL COMPUTER? - Leventhal, 


Lance A. and Stafford, Irvin (John Wiley & Sons, 
Inc., New York, 1981) 
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APPENDIX — GLOSSARY OF USEFUL WORDS 


Accumulator - part of the computer's logic unit 
which stores the intermediate results of 
computations 


Address - a number which refers to a _ location, 
generally in the computer's memory, where 
information is stored 


Algorithm - the sequence of steps used to solve a 
problem 
Alphanumeric -— generally used to describe a_ key- 


board, and signifying that the keyboard has 
alphabetical and numerical keys. A numeric keypad, 
by contrast, only has keys for the digits one to 
nine, with some additional keys for arithmetic 
operations, much Like a calculator 


APL - this stands for Automatic Programming 
Language, a language developed by Iverson in_ the 
early 1960s, which supports a Large set of operators 
and data structures. It uses a non-standard set of 
characters 


Application software — these are programs which are 
tai Lored for a specific’ task, such as word 
processing, or to handle mailing Lists 


ASCII - stands for American Standard Code for 
Information Exchange. This is an almost universal 
code for letters, numbers and symbols, which has a 
number between O and 255 assigned to each of these, 
such as 65 for the letter A 
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Assembler — this is a program which converts another 
program written in an assembly Language (which is a 
computer program in which a single instruction, such 
as ADD, converts into a single instruction for the 
computer) into the Language the computer’ uses 
directly 


BASIC - stands for Beginner's All-purpose Symbolic 
Instruction Code, the most common Language used on 
microcomputers. It is easy to Learn, with many of 
its statements being very close to English 


Batch -— a group of transactions which are to be 
processed by a computer in one lot, without 
interruption by an operator 


Baud — a measure of the speed of transfer of data. 
It generally stands for the number of bits (discrete 
units of information) per second 


Benchmark - a test which is used to measure’ some 
aspect ofthe performance of a computer, which can be 
compared to the result of running a similar test on 
a different computer 


Binary - a system of counting in which there are 
only two symbols, O and‘1 (as opposed to the 
ordinary decimal system, in which there are ten 
symbols, O, 1, 2, 38, 4, 5, 6, 7, 8 and 9). Your 
computer 'thinks' in binary 


Boolean Algebra — the algebra of decision-making and 
logic, developed by English mathematician George 
Boole, and at the heart of your computer's ability 
to make decisions 
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Bootstrap — a program, run into the computer when it 
is first turned on, which puts the computer into the 
state where it can accept and understand other 
programs 


Buffer -— a storage mechanism which holds input from 
a device such as keyboard, then releases it at a 
rate which the computer dictates 


Bug — an error in a program 


Bus — a group of electrical connections used to Link 
a computer with an ancillary device, or another 
computer 


Byte - the smallest group of bits (see bit) which 
makes up a computer word. Generally a computer is 
descibed as being 'eight bit' or '16 bit', meaning 
the word consists of a combination of eight or 
sixteen zeroes or ones 


Central Processing Unit (CPU) -— the heart of the 
computer, where arithmetic, logic and control 
functions are carried out 


Character code - the number in ASCII (see ASCII) 
which refers to a particular symbol, such as 32 for 
a space and 65 for the letter 'A' 


COBOL - stands for Common Business’ Orientated 
Language, a standard programming Language, close to 
English, which is used primarily for business 


Compiler - a program which translates a program 


written in a high Level (human-Like) Language into a 
machine Language which the computer is able to 
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understand directly 


Concatenate — to add (adding two strings together is 
known as 'concatenation') 


CP/M — stands for Control Program/Microcomputer, an 
almost universal disk operating system developed and 
marketing by Digital Research, Pacific Grove, 
California 


Data — a general term for information processed by a 
computer 


Database —- a collection of data, organised to permit 
rapid access by computer 


Debug — to remove bugs (errors) from a program 


Disk - a magnetic storage medium (further described 
as a ‘hard disk', 'floppy disk' or even’ 'floppy') 
used to store computer information and programs. The 
disks resemble, to a Limited extent, 45 rpm sound 
records, and are generally eight, five and a 
quarter, or three and a half inches in diameter. 
Smaller 'microdisks' are also available for some 
systems 


Documentation — the written instructions and 
explanations which accompany a program 


DOS - stands for Disk Operating System (and general- 
ly pronounced 'doss'), the versatile program which 
allows a computer to control a disk system 


Dot-matrix printer - a printer which forms’ the 
letters and symbols by a collection of dots, usually 
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on an eight by eight, or seven by five, grid 


Double-density -— adjective used to describe disks 
when recorded using a special technique which, as 
the name suggests, doubles the amount of storage the 
disk can provide 


Dynamic memory -— computer memory which requires 
constant recharging to retain its contents 


EPROM - stands for Erasable Programmable Read Only 
Memory, a device which contains computer information 
in a semi-permanent form, demanding sustained 
exposure to ultra-violet Light to erase its contents 


Error messages — information from the computer’ to 
the user, sometimes consisting only of numbers or a 
few letters, but generally of a phrase (such as 'Out 
of memory') which points out a programming or 
operational error which has caused the computer’ to 
halt program executions 


Field - A collection of characters which form a 
distinct group, such as an indentifying code, a name 
or a date; a field is generally part of a record 


File - A group of related records which” are 
processed together, such as an inventory file or a 
student file 


Firmware — The solid components of a computer system 
are often called the 'hardware', the programs, in 
machine-readable form on disk or cassette, are 
called the 'software', and programs which are hard- 
wired into a circuit, are called 'firmware'. 
Firmware can be altered, to a Limited extent, by 
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software in some circumstances 


Flag - this is an indicator within a program, with 
the 'state of the flag' (i.e. the value it holds) 
giving information regarding a particular condition 


Floppy disk — see disk 


Flowchart -— this is a written Layout of program 
structure and flow, using various shapes, such as a 
rectangle with sloping sides for a computer action, 
and a diamond for a computer decision. A flowchart 
is generally written before any Lines of program are 
entered into the computer 


FORTRAN — a high Level computer Language, generally 
used for scientific work (from FORmula TRANsLation) 


Gate — a computer 'component' which makes decisions, 
allowing the circuit to flow in one direction or 
another, depending on the conditions to be satisfied 


GIGO - acronym for 'Garbage In Garbage Out', 
suggesting that if rubbish or wrong data is fed into 
a computer, the result of its processing of such 
data (the output) must also be rubbish 


Global - a set of conditions which effects the 
entire program is called 'global', as opposed to 
"Local! 


Graphics - a term for any output of computer’ which 
is not alphanumeric, or symbolic 


Hard copy — information dumped to paper by a printer 
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Hardware - the solid parts of the computer (see 
'software' and 'firmware') 


Hexadecimal - a counting system often used _ by 
machine code programmers because it is closely 
related to the number storage methods used by 
computers, based on the number 16 as opposed to our 
‘ordinary' number system which is based on 10) 


Hex pad — a keyboard, somewhat like a calculator, 
which is used for direct entry of hexadecimal 
numbers 


High-level Langauges — programming Languages which 
are close to English. Low-Level Languages are closer 
to those which the computer understands. Because 
high-level Languages have to be compiled into a form 
which the computer can understand before they are 
processed, high-Level Languages run more slowly than 
do their Low-level counterparts 


Input - any information which is fed into a program 
during execution 


I/O - stands for Input/Output port, a device the 
computer uses to communicate with the outside world 


Instruction — an element of programming code, which 
tells the computer to carry out a specific task. An 
instruction in assembler Language, for example, is 
ADD which (as you've probably guessed) tells the 
computer to carry out an addition 


Interpreter - converts the high-level ("human 


understandable') program into a form which the 
computer can understand 
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Joystick - an analogue device which feeds signal 
into a computer which is related to the position 
which the joystick is occupying; generally used in 
games programs 


Kilobyte - the unit of Language measurement; one 
kilobyte (generally abbreviated as K) equals 1024 
bits (see bit) 


Line printer - a printer which prints a _ complete 
Line of characters at one time 


Low-Level Language - a Language which is close to 
that used within the computer (see high-level 
Language) 


Machine Language - the step below a_e Low-Level 
Language; the Language which the computer 
understands directly 


Mainframe — the term for 'giant' computers such as 
the IBM 307. Computers are also classed as_ mini- 
computer and microcomputer (such as the computer you 
own) 


Memory — the device or devices used by a computer to 
hold information and programs’ being currently 
processed, and for the instruction set fixed within 
a computer which tells it how to carry out’ the 
demands of the program. There are basically two 
types of memory (see RAM and ROM) 


Microprocessor -— the 'chip' which Lies at the heart 
of your computer. This does the 'thinking' 
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Modem — stands for MOdulator/DEModulator, and is a 
device which allows one computer to communicate with 
another via the telephone 


Monitor - (a) a dedicated television-screen for use 
as a computer display unit, contains no_ tuning 
apparatus; (b) the information within a computer 
which enables it to understand and execute program 
instructions 


Motherboard — a unit, generally external, which has 
slots to allow additional 'boards' (circuits) to be 
plugged into the computer to provide facilities 
(such as high-resolution graphics, or "robot 
control') which are not provided with the standard 
machine 


Mouse — a control unit, slightly smaller than a box 
of cigarettes, which is rolled over the desk, moving 
an on-screen cursor in parallel to select options 
and make decisions within a program. 'Mouses' work 
either by sensing the action of their wheels, or by 
reading a grid pattern on the surface upon which 
they are moved 


Network — a group of computers working in tandem 
Numeric pad - a device primarily for entering 
numeric information into a computer, similar to a 


calculator 


Octal — a numbering system based on eight (using the 
digits 0,1, 2,8, 4, 5, 6 and 7) 


On-Line - device which is under the direct control 
of the computer 
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Operating system — this is the 'big boss' program or 
series of programs within the computer’ which 
controls the computer's operation, doing such things 
as calling up routines when they are needed and 
assigning prioritories 


Output — any data produced by the computer while it 
is processing, whether this data is displayed on the 
screen or dumped to the printer, or is used 
internally 


Pascal - a high level Language, developed in’ the 
Late 1960s by Niklaus Wirth, which encourages 
disciplined, structured programming 


Port - an output or input 'hole' in the computer, 
through which data is transferred 


Program - the series of instructions which the 
computer follows to carry out a predetermined task 


PILOT - a high Level Language, generally used to 
develop computer programs for education 


RAM - stands for Random Access Memory, and is the 
memory on board the computer which holds the current 
program. The contents of RAM can be changed, while 
the contents of ROM (Read Only Memory) cannot be 
changed under software control 


Real-time — when a computer event is progressing in 
Line with time in the 'real world', the event is 
said to be occurring in real time. An example would 
be a program which showed the development of a 
colony of bacteria which developed at the same rate 
that such a real colony would develop. Many games, 
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which require reactions in real time, have’ been 
developed. Most ‘arcade action' programs occur in 
real time 


Refresh - The contents of dynamic memories (see 
memory) must receive periodic bursts of power in 
order for them to maintain their contents. The 
signal which 'reminds' the memory of its contents is 
called the refresh signal 


Register — a Location in computer memory which holds 
data 


Reset -— a signal which returns the computer to’ the 
point it was in when first turned on 


ROM — see RAM 


RS-232 - a standard serial interface (defined by the 
Electronic Industries Association ) which connects a 
modem and associated terminal equipment to a 
computer 


S-100 bus - this is also a standard interface (see 
RS-232) made up of 100 parallel common communication 
Lines which are used to connect circuit boards 
within micro-computers 


SNOBOL - a high Level Language, developed by Bell 
Laboratories, which uses pattern recognition and 
string manipulation 


Software -— the program which the computer’ follows 
(see firmware) 


Stack - the end point of a series of events’ which 


339 


are accessed on a Last in, first out basis 


Subroutine — a block of code, or program, which is 
called up a number of times within another program 


Syntax - as in human Languages, the syntax is the 
structure rules which govern the use of a computer 
Language 


Systems software — sections of code which carry out 
administrative tasks, or assist with the writing of 
other programs, but which are not actually used to 
carry out the computer's final task 


Thermal printer — a device which prints the output 
from the computer on heat-sensitive paper 


Time-sharing — this term is used to refer to a Large 
number of users, on independent terminals, making 
use of a single computer, which divides its time 
between the users in such a way that each of them 
appears to have the ‘full attention' of the computer 


Turnkey system —- a computer system (generally for 
business use) which is ready to run when delivered, 
needing only the 'turn of a key' to get it working 


Volatile memory —- a memory device which Loses its 
contents when the power supply is cut off 


Word processor — a dedicated computer (or a computer 
operating a word processing program) which gives 
access to an ‘intelligent typewriter’ with a Large 
range of correction and adjustment features 
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APPENDIX — ERROR REPORTS 


attempt to divide by zero 

file of specified number is already open 
data format in file is incorrect 

file mode is incorrect 

a file number is incorrect 

buffer overflow 

bad subscript in array (outside size of 
array defined, or wrong number of subscripts 
used) 

can't continue 

duplicate definition 

direct statement in file 

device unavai Lable 

illegal function call 

bad file descriptor 

FOR without NEXT 

attempt to enter a statement which is 
illegal in the direct mode 

input past end, all data in file has been 
read 

device I/O error 

device in use 

string too long (>256 characters) 

missing operand 

specified file does not exist 

NEXT without a FOR 

file not open 

no RESUME statement in error—-trapping 
routine 

out of DATA 

out of memory 

out of string space 

overflow 

protected program 
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RETURN without GOSUB 

RESUME without error 

Syntax error 

string formula is too complex 
mismatch in the type of variable 

a USR function is not defined 

an error in the Line number 

there is an error with an undefined error 
code 

WHILE without WEND (disk BASIC only) 
WEND without WHILE (disk BASIC only) 
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MAKING 
THE MOST 


OF YOUR 
HX20 


Over the years, we have seen computers shrink from 
being vast machines that occupied an entire 
suite of rooms, to exciting hand-held 
devices Like the Epson HX20. 


In this book, Tim Hartnell, author of over 30 
top-selling computer books, shows you 
how to tap the immense power of your HXe0. 


In easy-to-follow steps, you'Ll be lead through 
programming the HX20 from first principles. 


You'LL also be shown what to expect from commercial 
software — business and personal — and shown 
how to develop your own programs. 


A number of major programs, including MINICALC, 
PERSONAL FINANCE, REVERSI, CHECKERS 
and even CHESS are included in the book, 
to demonstrate how powerful is the genie 
you now have at your command. 


ANOTHER GREAT BOOK 
FROM 
INTERFACE PUBLICATIONS 


Making the most of your HX20  tartne 


Interface 


